TA的每日心情 | 开心 2017-1-5 13:46 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
本帖最后由 lulu3 于 2013-8-13 17:21 编辑
很好啊,按照这个步骤,我刚刚完成一个项目登录的测试脚本,唯一的差别就是错误提示是弹出框,我另加了一个if判读语句,都调试好了,,我把它发上来
Dim i '定义行号
Dim outputvalue '定义读取系统的实际提示信息的变量
Dim istatus '定义读取预期提示信息的变量
For i=1 to datatable.GetSheet("login").getrowcount '获得行数
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("username").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("username").Set DataTable("username", dtLocalSheet)
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("password").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebEdit("password").SetSecure DataTable("passworld", dtLocalSheet)
wait(2)
Browser("登录到 NoteExpressWeb").Page("登录到 NoteExpressWeb").WebElement("WebElement").Click
wait(2)
If Window("Windows Internet Explorer").Dialog("来自网页的消息").Exist Then '判断是否有弹出提示框
Window("Windows Internet Explorer").Dialog("来自网页的消息").Static("请填写用户名!").Output CheckPoint("请填写用户名!") '插入弹出框文本的输出点
outputvalue = datatable("outmsg",dtlocalsheet) ''将实际输出值赋于变量outputvalue
istatus = datatable("status",dtlocalsheet) '将预期输出值赋于变量istatus
If outputvalue<>istatus Then
reporter.ReportEvent micFail,"登录功能测试","预期值为: "& istatus & "实际值为:" & outputvalue
End If
datatable.GetSheet("login").setnextrow '获取login中的下一行数据
Window("Windows Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
End If
Next
Browser("登录到 NoteExpressWeb").Page("我的题录").WebElement("题录").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("我的题录").WebElement("题录").Click
wait(2)
Browser("登录到 NoteExpressWeb").Page("我的题录").Link("注销").Click |
|