这个相对来说比上一个复杂点,我对登陆的用户名我做了一个参数化,然后设置了4个变量,分别来存储,用户名、密码、预期值、实际获取值。做了一个循环,通过登陆不同的用户,来验证一些检查点获得的值。
Dim i '定义行号
Dim outputvalue '定义读取系统实际输出信息的变量
Dim istatus '定义读取系统预期显示信息的变量
For i=1 to datatable.GetSheet("Action1").getrowcount '做一个循环登陆
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrName").Set DataTable("username", dtLocalSheet)
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").WebEdit("sysUser.usrPassword").SetSecure DataTable("password", dtLocalSheet)
Browser("题库管理系统登录首页").Page("题库管理系统登录首页").Image("登陆").Click
Browser("题库管理系统登录首页").Page("题库管理系统").Frame("menu").Output CheckPoint("menu")'对页面某一位置插入文本检查点
outputvalue=datatable("outmsg",dtLocalSheet)' 将实际输出信息赋值给变量
istatus=datatable("status",dtLocalSheet)'将预期信息赋值给变量
msgbox outputvalue'弹出实际输出信息的变量值
If istatus<>outputvalue Then
Reporter.ReportEvent 1,"登陆功能测试","预期值为:"+istatus+",实际值为:"+outputvalue
End If
Browser("题库管理系统登录首页").Page("题库管理系统").Frame("topFrame").Image("点击退出").Click
Browser("题库管理系统登录首页").Page("题库管理系统登录首页_2").Sync
datatable.GetSheet("Action1").setnextrow'获取Action1中的下一行数值
Next
Browser("题库管理系统登录首页").Close