大家好，又见面了，我是你们的朋友全栈君。

基于GUI的自动化测试主要是围绕着界面的控件元素来进行的，例如文本框、列表框、控制按钮等等，软件用户通常都是通过这些控件与程序交互，因此，编辑测试脚本的第一步就是识别测试对象。

1、测试对象、运行时对象的区分以及对象库概念

首先区分UFT中测试对象和运行时对象概念。

简单以登录操作中AgentName对象来说，to属性和运行时输入的东西无关，而ro属性是实际中被测应用对象，在测试执行过程中，会看到对应属性的变化：

UFT对象库：UFT中，使用对象库对对象进行管理。记录的对象和这些对象的属性，都存储在对象库中。而对象库也可以设置为共享对象库，供多个Action调用。当发现对象库中缺少某个对象时，可以使用对象抓取工具，单个抓取对象添加到对象库中。

2、对象库工具的一些操作

1）对象识别器：Tools—–Object Identification

2）对象嗅探器：Tools—-Object Spy

打开如下的嗅探器窗口，点击下图方框中的按钮，移动手型的光标，可以看到下图中显示当前光标下的空间属性

3）对象库：Resources—–Object Repository

注意这里存储的除了测试对象，还有其他的对象类型，如下面的检查点。同样在对象库中，我们可以点击工具栏中的按钮，添加对象到对象库中；也可以高亮某个测试对象；，也可以使用对象嗅探器捕获测试对象；也可以关联其他的测试对象；

4）对象库管理：Resources—-Object Repository Manager

这里实际上共享对象库。在该对话框中，我们可以创建一个共享对象库、将对象库跟Action关联、添加对象到共享对象库中、保存一个共享对象库、修改共享对象库中的对象等。下面是新建一个共享的测试对象：

3、练习

录制一个Flight程序登录的脚本。脚本要求：

1. 使用Systemutil.Run打开程序
2. 创建三个Action，分别是Login，NewOrder，Logout。在三个Action中分别录制对应的操作
3. 保存NewOrder的本地对象库为NewOrder.tsr
4. 删除NewOrder的本地对象库
5. 将NewOrder的Action使用共享对象库（引用已保存的NewOrder.tsr），设置为共享对象库的路径为相对路径
6. 使用自定义检查点，检查Price*Ticket的价格是否等于Total，并用If语句写出判断成功或是失败后的Reporter.ReportEvent报告语句
7. 点击关闭，结束录制

补充知识点：

1）可以使用Systemutil.run加上程序路径，使UFT自动打开被测程序

2）在录制脚本的过程中，可以点击“录制工具条”中的新建Action按钮，将三个部分的操作放在三个Action中

3）UFT的VBscript脚本中，使用Const声明定义常量，使用Dim声明定义变量

4）报告语句，如果程序正确，则可以书写为Reporter.ReportEvent micPass,”结果正确”,”总价格正确”;如果程序不正确，可以使用Reporter.ReportEvent micFail,”结果错误”,”总价格计算错误”;

NewOrder中代码：

'新建订单
Window("Flight Reservation").ActiveX("MaskEdBox").Type "121216"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "jojo"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1

Dim tiknum,price,total
tiknum=2


Window("Flight Reservation").WinEdit("Tickets:").Set tiknum
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click

Dim pricestr,totalstr
pricestr=mid(window("Flight Reservation").WinEdit("Price:").GetROProperty("text"),2)
price=CDBl(pricestr)
totalstr=mid(window("Flight Reservation").WinEdit("Total:").GetROProperty("text"),2)
total=CDBl(totalstr)

If (price*tiknum)=total Then
    Reporter.ReportEvent micPass,"结果正确","总价格正确"
Else
    Reporter.ReportEvent micFail,"结果错误","总价格计算错误"
End if

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/140242.html原文链接：https://javaforall.cn