在testcomple中使用关键字驱动测试的一点想法

&m7NO%G(Y!ek-FYjH;x0  最近在研究自动化测试框架的资料,很多都是使用robot工具进行扩展的,那么在TC上能不能实现的,最近做了一点研究(对简单的登录界面进行测试) ,总结的经验如下:

gL.}'Hz5c od0excel表中的数据如下：51Testing软件测试网7Ep5P N;\5P/Qc%c

TFrmLogin： 登录窗口

~8R^p6D(f,{7}0Textbox：控件类型51Testing软件测试网5pM;ri9t6y\,v

L/VmR\}{%X!_m6I0TRzComboBox/Edit：控件名称（此空间为ComboBox，TC识别的时候就会识别成两个控件：TRzComboBox，Edit）51Testing软件测试网I_ n$G(]@+d

我TRzComboBox/Edit这两个控件写在了一起，用/分隔起来，这是为了使excel表中每一行都是最底层的控件，51Testing软件测试网 XJk"E@J(ki

也就是我们可以会直接操作的控件对象。那么我们把具有层次的控件放在了一起，那么在使用时，我们还得

iF B6}'N-y0分开，所有可以使用Split函数，把它们分开并存入一个数组中，分开使用就可以了。具体代码如下：51Testing软件测试网b1N7Qp!Z%} F

*M-Z%YAb6U
E)E8x4N2U0
oM"O*MUr0Sub Test151Testing软件测试网Ms@J9Si
  Dim w151Testing软件测试网V}bo?RA&v1nj
  Dim p1
c:xN7f4vd0  Dim w2
3zKa qq:Mw,y0  Dim w351Testing软件测试网c
D+y&f{y9~8j
  dim y
#{:pCs:krO0  '数据列,设立此变量的目的是为了使数据的输入更灵活，如上表，我们在第6，7列存放数据，那么我们

2JfD4I?S?0 使用不同的数据只需更换变量的值即可
lj)I[y8B`|,D0Dim Data

'excel表的行51Testing软件测试网`c;\j1S y
Y
x=2 51Testing软件测试网Zri]7tnP
' 打开测试应用程序51Testing软件测试网[)rc]&N N,TwY
set p = testedapps.items("jcysystem36").run51Testing软件测试网/n|2@%Di?
  Set w1 = Aliases.Sys51Testing软件测试网&AXux8U:mA!l9b
  Set p1 = w1.JcySystem3651Testing软件测试网xw+i~M2{,r&gp
  '-------------------------------
+r$AM~&c)W:B0  '打开EXCEl文档，并从中读取数据
*{7Lr*j%a0    Set ōbjExcel = CreateObject("Excel.Application")
1}b2M3d[G!t|2[0  Set ōbjWorkbook = objExcel.Workbooks.Open ("D:\myfile.xls")
_ jMw#Zs:ra0 51Testing软件测试网&Uba }F
dtT
 
S"PR^4yqE0  '对于复杂的控件，把路径写在一个cell中，并用“/”分隔开来，使用split（）处理，转化为数组51Testing软件测试网4vMw];S!g
  y =  objExcel.Cells(x, 4).Value51Testing软件测试网1wTRA7Ad]q
 myArry = split(y,"/",-1,1)51Testing软件测试网4vw.a8Q5aBm+@%G

5bp_@ R@J4v|4W0'登录界面
$zhXez-W*BfG0Set w2 = p1.Window(objExcel.Cells(X,2).Value, "系统登录")

'点击用户名输入框并输入数据51Testing软件测试网N8\S?7mL%Ym@
call w2.window(myArry(0)).window(myArry(1)).click()
(ncI } Zo7z0 call w2.window(myArry(0)).window(myArry(1)).keys(objExcel.Cells(X,Data).Value)

7y"^0K6IHchc0'点击密码框并输入数据51Testing软件测试网0Lo,o
sd$C!a b4P
call w2.window(objExcel.Cells(X+1,4).Value).click() 51Testing软件测试网~bJa4v[ BG
 call w2.window(objExcel.Cells(X+1,4).Value).keys(objExcel.Cells(X+1,Data).Value)51Testing软件测试网Y#@+fMo)tY

'点击确定按钮
-z#~R9E Oo0call w2.window(objExcel.Cells(X+2,4).Value,"","2").click()
'my'CTB oK S(n051Testing软件测试网9et/ps"L*K[.w
  objExcel.Quit51Testing软件测试网-g#B R%j*l;}
51Testing软件测试网4z4m8y3_(R1i
End Sub

o#Nl G*nHX0这是一个简单的例子，继续需要把框架作的更深入，把一些逻辑提取出来，还需努力啊51Testing软件测试网 R0R3h1m'_DS)_?o8i

1a!x:P,eaa0 51Testing软件测试网@"S2^t.B*Q