'检查连接是否正确
set userurl = Description.Create()
'设置检查属性和属性的值,如需要可设置多个属性和属性值 long_name用户名
userurl("text").value = "家务中心"
userurl("index").value = 0
userurl("url").value = "(.)*"&DataTable("home_name", dtGlobalSheet)&"(.)*"
Dim true_userurl
true_userurl = allpage.webelement(username).GetROProperty("url")'取实际登陆用户数据
'设置检查控件---目前是检查 webelement 对象
If allpage.link(userurl).Exist Then
Reporter.ReportEvent micPass, "用户连接正确", "家务中心连接:"&true_userurl '设置通过时的描述语句
Else
Reporter.ReportEvent micFail, "用户连接不正确", "Fail" '设置不通过时的提示语句
End If
'------------------------------------------------------------------------------
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |