自定义的检查点函数!望提意见改进

onlonely

'*******************************************************************
'函数说明:自定义的检查点函数,基于对象库使用
'参数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 编辑 ]