rational对象脚本命令

2020-01-31 16:13:58

字体：大中小

来源：转载

供稿：网友

对象脚本命令
使用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 