QTP测试Windows计算器

QTP是自动化测试的工具，可以使用编写脚本或录制的方式进行测试自动化：

下面是对Windows自带计算器的测试

首先写入脚本，使用VBScript打开计算器

Dim oShell
Set oShell=CreateObject("WSCript.shell")
oShell.Run "calc",1
Wait 2

然后录制

 

将自动产生脚本，然后在Edit后加入检查点，测试1+1=2(Insert->CheckPoint->Text Area CheckPoint)

界面如下：

设置要检查的值为2.

最后的脚本为

Dim oShell
Set oShell=CreateObject("WSCript.shell")
oShell.Run "calc",1
Wait 2

Window("计算器").WinButton("1").Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton("1").Click
Window("计算器").WinButton("=").Click
Window("计算器").WinEdit("Edit").Check CheckPoint("Edit_2")
Window("计算器").Close

运行后，会自动产生一个报告：(为了测试错误的信息，本人在检测点附近设置了值为3.)