|
我只是做了两个测试用例,都用参数写在本地工作表里了,一个是用户名是错误的情况,一个是正确的,然后我在工作表里定义了一个status字段,保存“用户名不存在”内容,我想做的测试是通过获取alert提示内容和status得内容比较,得出是不是bug,如果两个变量值一样那就不是bug.但是我上面的方法都试了,还是不行,还提示username错误。代码如下
Dim i
Dim outputvalue
Dim outstatus
For i=1 to datatable.GetSheet("Action1").GetRowCount
Browser("企业邮局").Page("企业邮局").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("企业邮局").Page("企业邮局").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("企业邮局").Page("企业邮局").WebButton("登 录").Click
'outputvalue=Browser("企业邮局").Dialog("Microsoft Internet Explorer").Static("请输入你的用户名!").GetROProperty("请输入你的用户名!")
outputvalue=Browser("Browser").Dialog("Microsoft Internet Explorer").Static("用户名不存在").GetROProperty("text")
outstatus=datatable("status",dtlocalsheet)
If outputvalue<>outstatus Then
reporter.ReportEvent 1," 登陆功能测试","预期输出:"+outstatus+",实际输入"+outputvalue
End If
datatable.GetSheet("Action1").SetNextRow
Next
Browser("企业邮局").Page("企业邮局_2").Link("退出").Click
Browser("企业邮局").Page("企业邮局").Sync
Browser("企业邮局").CloseAllTabs
希望前辈们给看看,看看到底怎么获取alert的内容,并且这都是变化的,因为每次alert的提示都不一样。。。。
再次感谢 |
|