以下语句指示 QuickTest 选中 Itinerary 网页上的所有复选框:51Testing软件测试网r R}%GXu
Set MyDescrīption = Descrīption.Create()
Y:N.t$Ix sD0MyDescrīption("html tag").Value = "INPUT"51Testing软件测试网m0b4r,?y
MyDescrīption("type").Value = "checkbox"
_]| x{dQYA0Set Checkboxes = Browser("Itinerary").Page("Itinerary").ChildObjects(MyDescrīption)
VBI,Ch&X0NoOfChildObjs = Checkboxes.Count
X^,j$O?/A9dk7r0For Counter=0 to NoOfChildObjs-1
q%\$qUuy5w7Pj0Checkboxes(Counter).Set "ON"51Testing软件测试网6dO7j#}6q'g[)k[T
Next51Testing软件测试网0C*RJ Zypr
例二:(来自51testing)
%\PG6Aw&},iK0目标如下:51Testing软件测试网,At
E{6d!{.u
1. 脚本需要处理成功和失败的用户的登陆51Testing软件测试网;?/F&c$b q2F,hx&o
a
2. 数据驱动51Testing软件测试网`M+RNL
@E
yv}4ZB/SV0设计开发脚本如下:
~@
o|D%WKY051Testing软件测试网|1D@P%_8r0T?
t1G!Z6U@X0第一步录制脚本如下51Testing软件测试网9kJ(eL8A0k
LI
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "吕巍"
I Y&@:F1y0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""
n%L&t#f5OCbf)H0Browser("智能变电巡检仪系统 4.0").Page("Page").Syn
YSIbo+|^0Browser("智能变电巡检仪系统 4.0").Close
P+[-f*s]WR hC051Testing软件测试网+F)},d0uX6t |c以上为录制的正确的用户名,下边录制错误的用户名
Q!~E
rYykh0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set "xx"
8Q)D8[-U7?yaK0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set ""51Testing软件测试网 L&c3Q9k;lX
出现错误提示“该用户不存在”51Testing软件测试网[5a GWX!p{5n-k
51Testing软件测试网/ps9pwR5i)A d:u第二步 增强脚本
!v
r M[r9L051Testing软件测试网1^Xe)DZdo
jE现在需要设计的是一套脚本驱动所有的测试数据,这样可以驱动所有的用例数据,qtp中提供了datatable。51Testing软件测试网8?4R@%xV%^i/R5dW
但是有数据驱动也要做一个事情就是如何处理错误的用户名和正确的用户名,如何结合起来呢?
f`9](GP
@6o0这里我把datatable看作存放测试用例的地方,里面放入测试数据,还放入测试的预期结果。这样我的设计已经出现雏形了。
4I&hj6vv$\P1xVU
I0我把datatable设计为三列
"mqx(mmj^051Testing软件测试网W+_O._(a]+v2xusername password status51Testing软件测试网#cY$M-~9]:P
]
吕x 51Testing软件测试网
dU9q&`
GZ
xxx xxxx 该用户不存在
6t?rmn8P\R/nc5c03c(GI4xIf/A/O0FB0第三列放入最后执行的结果,我设计的是空为成功登陆,如果有信息就用实际运行的结果和这一列对比.好了万事俱备只欠东风了
1T@ A` D D%|0X+OY@'V+@/|0修改脚本如下:
?*WY%HDS;i p lp_0Dim iStatus51Testing软件测试网*a}%a}7U:I*eCK
9vF1R [d*S7S'O(@0Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebEdit("txtLoginName").Set DataTable("username", dtLocalSheet)51Testing软件测试网kS%S+O;g+R4Cd
Browser("智能变电巡检仪系统 4.0").Page("智能变电巡检仪系统 4.0").WebButton("登 录").set DataTable("password", dtLocalSheet)
e_M
v~b)G+o0iStatus = DataTable("status", dtLocalSheet)
dK8vtI0PP8H*o0
Ij&b0NNP9F0If iStatus="" Then
0n](K*z?c0 Browser("智能变电巡检仪系统 4.0").Close
)E%jjChj%G0End If51Testing软件测试网.OFj$n:U1J
C
Qm;^ IC-N$\"DE0
;n4N v'R(w0If iStatus="该用户不存在" Then51Testing软件测试网H+n}0r;^ BGh
Reporter.ReportEvent micFail, "登陆", "登陆失败."51Testing软件测试网5p4?vgoMo _r
End If51Testing软件测试网,yYl+`UE
w3K.|iq0Browser("智能变电巡检仪系统 4.0").Close51Testing软件测试网ip,Dc\2^?;^
51Testing软件测试网U;W.Jo:~0\6r|y第三步,设置脚本运行过程
5}:\m,S#|,kxF Q`051Testing软件测试网MV8B1I.k_R$l打开 tests-〉settings
@9L6K8\!O.pA2D.P,X$l0设置RUN TAB页面下 Datatable iterations中 Run On all rows
#cK;~/R'}t:Nb}/LM0P051Testing软件测试网
Q'KE;b(D2Q这样就完成了整个脚本的设计工作,以上通过一个简单例子吧脚本的设计和软件的功能结合起来,达成脚本的设计效果。51Testing软件测试网WU N/jf
51Testing软件测试网/{QVm$y#f0N-}$|)`
%R:jN5DwKq9U8q)e0