51Testing软件测试论坛

标题: 中科院软件测试视频教程03QTP自动化测试 [打印本页]

作者: 夕阳西下° 时间: 2013-7-31 15:30
标题: 中科院软件测试视频教程03QTP自动化测试
http://v.youku.com/v_show/id_XMzQ2OTgzMDQ=.html

作者: lsekfe 时间: 2013-8-1 09:30

夕阳西下° 发表于 2013-7-31 15:30

支持下~

作者: 跑跑跑跑 时间: 2013-8-1 09:41
哈哈，我看过了

作者: helenhuoyy 时间: 2013-8-1 16:31
收藏

作者: lulu3 时间: 2013-8-13 17:20
本帖最后由 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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)