51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1871|回复: 0
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-6-6 11:52:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'*******************************************************************
'函数说明:自定义的检查点函数,基于对象库使用
'参数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 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 14:13 , Processed in 0.063615 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表