TA的每日心情 | 奋斗 2015-3-30 15:24 |
---|
签到天数: 3 天 连续签到: 1 天 [LV.2]测试排长
|
本帖最后由 fsweicaixia 于 2013-8-21 16:56 编辑
QTP自动化测试技术领航 第476页 脚本,有一句不明
testobjectname = obj.GetToProperty("testObjName")
testObjName是从何而来,是参数PropertyName吗?
紧急问题
'*******************************************************************
'脚本目的: 实际值预期值相比较
'创建日期: 2013.08.21~ 2013.08.21
'创 建 人: Anna
'描述:函数整理
'*******************************************************************
'@Description Auto Log Generator
'PropertyName obj属性
'ExpectedValue 实际值
Function ValidateProperty(obj,PropertyName,ExpectedValue)
If Cstr(obj.GetROProperty(PropertyName)) = Cstr(ExpectedValue) Then
'成功
On Error Resume Next
testobjectname = obj.GetToProperty("testObjName")
HReport ExpectedValue,obj.GetROProperty(PropertyName),True,"check" + testobjectname + "<" + PropertyName + ">property"
on error goto 0
ValidateProperty = True
Exit function
Else
'失败
On Error Resume Next
testobjectname = obj.GetToProperty("testObjName")
HReport ExpectedValue,obj.GetROProperty(PropertyName),False,"check " + testobjectname + "<" + PropertyName + ">property"
on error goto 0
ValidateProperty = False
Exit function
End If
End Function |
|