系统登录测试脚本——系统成功登录后怎么办

pingguo109

测试用例
用例编号        前置条件                              测试步骤、输入数据               预期结果       
1        用户名、密码为空                      点击【登录】，无            弹出提示窗口                                     
2        输入用户名、密码为空                   点击【登录】，test1,空        弹出提示窗口       
3        输入错误的用户名、密码        点击【登录】，testt，testt          弹出提示窗口       
4        输入正确的用户名，错误的密码        点击【登录】，test1, testt        弹出提示窗口       
5        输入正确的用户名、密码        点击【登录】，test1,1        正确登录系统界面       

'出现错误忽略，继续执行
On Error Resume NEXT

Setting.WebPackage("ReplayType") = 1
DataTable.GetSheet ("Action1").SetCurrentRow(1)
Do
Browser("系统登录").Page("系统登录").WebEdit("account").Set DataTable("username", dtLocalSheet)
Browser("系统登录").Page("系统登录").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("系统登录").Page("系统登录").WebButton("登    录").Click

If Browser("系统登录").Page("系统登录").WebElement("系统消息").Exist(1) Then
        Browser("系统登录").Page("系统登录").WebElement("OK").Click
        Reporter.ReportEvent micFail,"登录失败","用户名或密码为空or用户名或密码错误"
        elseif Browser("系统登录").Page("xxx系统").Exist(1) Then
        Reporter.ReportEvent micPass,"登录成功","登录成功"            else
        Reporter.ReportEvent micFail,"登录失败","系统存在BUG"
End If

DataTable.GetSheet("Action1").SetNextRow
Loop Until False


系统成功登录后，脚本和系统就都不动了，怎么办？？

arivn

你看一下日志文件中的内容是不是这行代码写的内容

    Reporter.ReportEvent micFail,"登录失败","系统存在BUG"

pingguo109

呵呵，解决了，犯了一个低级错误，循环没有写结束条件

souchy

Loop Until False

这个用法比较奇怪，你把Until False改成Until DataTable("password", dtLocalSheet)=1试试