|
'*******************************************************************
'函数说明:自定义的检查点函数,基于对象库使用
'参数1:Check_Object:检查的对象,是在对象库中的对象
'参数2:CheckPoint_Name:检查点名字
'参数3:Check_PropertiesName:检查的属性
'参数4ropertiesValue:预期的检查属性的值,可以是正则表达式
'返回值:通过放回true,不通过返回false
'*******************************************************************
Function CheckPoint(Check_Object,CheckPoint_Name,Check_PropertiesName,PropertiesValue)
CheckPoint_TMPString=Check_Object.GetROProperty(Check_PropertiesName)'获得实际对象检查字段的值
ObjectType_String=Check_Object.ToString
CheckPoint_Tmp_Array=Split(ObjectType_String," ")
ObjectType=CheckPoint_Tmp_Array(Ubound(CheckPoint_Tmp_Array))'获得检查对象的类型
CheckPoint_TMP=Exist_Reg(CheckPoint_TMPString,PropertiesValue)'调用检查函数检查是否一致,检查的值可以是正则表达式
If ObjectType="image" Then
CheckPoint_NameString="实际"&CheckPoint_Name&"(图片)"
Check_Object.CaptureBitmap CheckPoint_Name&".png"
If CheckPoint_TMP Then
reporter.ReportEvent micPass,CheckPoint_Name&"检查点通过",CheckPoint_NameString,CheckPoint_NameString&".png"
Else
reporter.ReportEvent micFail,CheckPoint_Name&"检查点不通过",CheckPoint_NameString,CheckPoint_NameString&".png"
End If
Else
If CheckPoint_TMP Then
reporter.ReportEvent micPass,CheckPoint_Name&"检查点通过",CheckPoint_Name&"(实际值):"&CheckPoint_TMPString
Else
reporter.ReportEvent micFail,CheckPoint_Name&"检查点不通过",CheckPoint_Name&"(实际值):"&CheckPoint_TMPString
End If
End If
CheckPoint=CheckPoint_TMP
End Function
[ 本帖最后由 onlonely 于 2009-6-6 11:55 编辑 ] |
|