rational对象脚本命令

对象脚本命令

    使用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

     在实际测试中，你会发现这种脚本非常好用。