对象脚本命令
使用robot录制的脚本在实际的测试使用中,并不是很好用。录制的脚本是线性脚本没有控制结构,如果要测试大量的数据,只依靠录制的脚本测试,是行不通的。另外,带有校验点的线性脚本,直接加入控制结构,大部分是不能正确回放的。这种情况下,使用robot的对象脚本命令是不错的选择。使用方法是采用录制加手工编码的混合方式。这样产生的脚本清晰、易维护、功能强大。
下面还是计算器的例子,使用SQAGetProperty获取对象属性,使用SQALogMessage将测试结果写入到日志中:
复制代码 代码如下:
Sub Main
Dim Result As Integer
Dim sum as string
'Initially Recorded: 2003-7-21 11:07:34
'Script Name: jsq-对象脚本
StartApplication "C:\WINNT\system32\calc.exe"
Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"
Result= SQAGetProperty ("Type=Label;ObjectIndex=1", "Text", sum)
if left(sum,1)="2" then
SQALogMessage sqaPass, "测试通过", ""
else
SQALogMessage sqaFail, "测试失败", ""
end if
Window CloseWin, "", ""
End Sub
在实际测试中,你会发现这种脚本非常好用。
使用robot录制的脚本在实际的测试使用中,并不是很好用。录制的脚本是线性脚本没有控制结构,如果要测试大量的数据,只依靠录制的脚本测试,是行不通的。另外,带有校验点的线性脚本,直接加入控制结构,大部分是不能正确回放的。这种情况下,使用robot的对象脚本命令是不错的选择。使用方法是采用录制加手工编码的混合方式。这样产生的脚本清晰、易维护、功能强大。
下面还是计算器的例子,使用SQAGetProperty获取对象属性,使用SQALogMessage将测试结果写入到日志中:
复制代码 代码如下:
Sub Main
Dim Result As Integer
Dim sum as string
'Initially Recorded: 2003-7-21 11:07:34
'Script Name: jsq-对象脚本
StartApplication "C:\WINNT\system32\calc.exe"
Window SetContext, "Caption=计算器", ""
InputKeys "1{+}1{ENTER}"
Result= SQAGetProperty ("Type=Label;ObjectIndex=1", "Text", sum)
if left(sum,1)="2" then
SQALogMessage sqaPass, "测试通过", ""
else
SQALogMessage sqaFail, "测试失败", ""
end if
Window CloseWin, "", ""
End Sub
在实际测试中,你会发现这种脚本非常好用。