文章摘要
这篇文章介绍了通过VBScript语言在Windows计算器上进行的“1+1=2”测试。测试的实现分为以下几个步骤：
1. 初始化Result变量为整数，sum变量为字符串，并记录测试开始时间。
2. 启动计算器应用程序，设置显示窗口为“计算器”。
3. 输入“1+1”并按回车键。
4. 使用SQAGetProperty获取计算器显示的结果，并将其存储在sum变量中。
5. 判断sum变量的开头是否为“2”。如果是“2”，输出“测试通过”的消息；否则输出“测试失败”的消息。
6. 最后关闭计算器窗口并结束测试。
测试的核心目的是验证计算器对“1+1”的运算结果是否正确。关键词包括Sub Main、计算器、测试、1+1=2、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