1、QTP自带函数print
调试代码的时候一般习惯用Debug或者Msgbox函数。监视变量运行时的值用Msgbox,个人感觉不方便的一点就是每次在msgbox窗口弹出来后,脚本会暂停执行,等到鼠标点确定后窗口才会关闭继续运行后续脚本,真的很烦,做自动化测试的时候我真的是已经懒到不愿意动一根手指头。某天无意发现QTP自带的函数print也可以实现查看变量信息,窗口是非模式的,运行时变量值在QuickTest Print Log窗口上输出但脚本不用停下来等,而且可以在一个session运行完了之后查看所有需要监视的变量值。
Eg:
Dim p
p=Browser("xx").page.("xx").webedit("object_name").GetROProperty("value")
print p
2、calender控件
一般日期格式字段是同时支持手填日期格式的text field和用鼠标点日历控件选择。但是在DMPOD系统里发现部分日期格式的字段居然disable了用户手动输入的属性,只能靠点日历控件来选择日期。结果录到的脚本全变成了img.click,无法回放。查了很久突然某一天找到了办法,绕过这个控件,强制转换它的属性值。
Eg:
Dim var_object
Set var_object=Browser("xx").page("xx").webedit("calendar_name").Object
Var_object.readonly=false
Browser("xx").page("xx").webedit("calendar_name").set "4/24/2009"
3、homepage menu
曾经困扰了我很久。Homepage dropdown menu 需要鼠标移动到主菜单名上才会显示子菜单目录,click子菜单目录进入页面。QTP总是无法捕捉到鼠标移动带出子菜单目录这个操作,解决办是用mouseover。
Eg:
Browser("xx").page("xx").webelment("homepage menu name").FireEvent "onMouseOver"
Browser("xx").page("xx").webelment("sub menu name").Click
4、自定义checkpoint
在页面提交保存后,自定义设置一个检查点,通过判断某个变量值是否满足预期,如果是,则保存成功,如果不是则保存失败。
Eg:
If Browser("xx").page.("xx").webedit("object_name").GetROProperty("value")="AA" Then
Reporter.ReportEvent micPass,"AA checkpoint","page is saved successfully"
Else Reporter.ReportEvent micFail,"AA checkpoint","page is not saved successfully"
End If
5、编程性描述语言识别对象
刚开始一段时间,一直不知道QTP除了用对象库识别对象外,还可以用编程性描述语言。后来查了网上的资料才明白过来。
第一种方法:
Browser("CreationTime:=0").Page("index:=1").WebEdit("name:=" & edit).Set "ha"
我没有尝试过,总感觉不如对象库来的方便,在对象库中可以直接选择和修改用来识别对象的属性,以及highlight object等功能。
第二种方法:
碰到过一个Case是,页面上table A里的checkbox元素数量每次运行时都是不相同的,随着页面上另一个对象B的值而改变,对象B的值又是参数化的,最后造成checkbox数量运行前无法预知。操作时又需要每次都选上所有的checkbox。最后用这种识别对象方法可以顺利实现。
Public function SelectAllCheckBox()
Set NewObject = Description.Create '创建满足下面三个条件的对象集
NewObject("micclass").value ="WebCheckBox"
NewObject("html tag").value="INPUT"
NewObject("class").value = "checkBox_class"
Set NewObjects = Browser("xx").Page("xx").ChildObjects(NewObject) '实际运行时的对象
Numbers = NewObjects.Count 'checkbox的个数
For i = 0 to NewObjects.count –1 '循环
NewObjects(i).Set "ON" '每一个checkbox都set on
Next
End Function
文章来源于领测软件测试网 https://www.ltesting.net/