51Testing软件测试论坛

标题: QTP功能测试求教谢谢 [打印本页]

作者: 哈哈哈你的 时间: 2015-3-24 21:26
标题: QTP功能测试求教谢谢
用QTP自动化测试 WEB型网站，测试登录注册功能。当登录账号或者密码错误时，会弹出对话框。要求当我使用测试用例数据时，正确的数据能运行下去，当有无效的数据时能够QTP自己点击那个对话框使能够运行下去。这是测试注册功能的，我已经参数化了，但没有设置检查点，也有测试数据在DataTable里了，就是回放时出现对话框不能运行下去。求指导如果看不懂我说的但会QTP的大哥大姐，求联系求教。万分感谢
Browser("电子商城").Page("电子商城").Link("注册").Click
Browser("电子商城").Page("电子商城_2").WebEdit("name").Set DataTable("departure", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("passwordOne").SetSecure DataTable("repassword", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("reallyName").Set DataTable("Rn", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("profession").Set DataTable("pr", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("email").Set DataTable("em", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("question").Set DataTable("que", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").WebEdit("result").Set DataTable("answer", dtGlobalSheet)
Browser("电子商城").Page("电子商城_2").Image("save").Click 29,12
Browser("电子商城").Page("电子商城_3").WebEdit("name").Set DataTable("dlm", dtGlobalSheet)
Browser("电子商城").Page("电子商城_3").WebEdit("password").SetSecure DataTable("dlmm", dtGlobalSheet)
Browser("电子商城").Page("电子商城_3").Image("fg-land").Click 29,11
Browser("电子商城").Page("电子商城_3").Link("安全退出").Click
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Browser("电子商城").Page("电子商城_3").Sync
Browser("电子商城").CloseAllTabs

作者: zhutoudd 时间: 2015-3-25 02:23
怎么记住这个贴？？？

作者: 土土的豆豆 时间: 2015-3-25 09:53
看看对象框是否能定位和识别正确，要正确加载并识别才能继续run啊~
另外，活动窗口/对话框也得切换了哦

作者: 哈哈哈你的 时间: 2015-3-25 11:05

土土的豆豆发表于 2015-3-25 09:53
看看对象框是否能定位和识别正确，要正确加载并识别才能继续run啊~
另外，活动窗口/对话框也得切换了哦

亲，我就是不会怎么加载，识别。。。不会写代码，有没有什么万能代码能用的

作者: q464907380 时间: 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库，在要弹出错误框那加if语句判断错误提示是否弹出  在加个for循环
比如
For i=1 to DataTable.GetSheet(1).GetRowCount
If Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Exist Then
      Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
      '继续执行的代码
   Else
      '继续执行的代码
   End if
   Next

作者: 哈哈哈你的 时间: 2015-3-26 10:51

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库，在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

不知对不对，先谢谢您，等一下试下

作者: 哈哈哈你的 时间: 2015-3-26 10:52

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库，在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

还想问怎么错误提示框添加到对象库啊，能详细点吗

作者: 哈哈哈你的 时间: 2015-3-26 13:50

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库，在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

Browser("电子商城").Page("电子商城").Image("fg-land").Check CheckPoint("fg-land_2")
Browser("电子商城").Page("电子商城").WebEdit("name").Set DataTable("p_name", dtGlobalSheet)
Browser("电子商城").Page("电子商城").WebEdit("password").SetSecure DataTable("p_password", dtGlobalSheet)
Browser("电子商城").Page("电子商城").Image("fg-land").Click 3, 12
If  Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").exist Then
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
else
Browser("电子商城").Page("电子商城_2").Link("安全退出").Click
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Browser("电子商城").Page("电子商城_2").Sync
Browser("电子商城").CloseAllTabs
End If

DataTable
p_name p_password
1          1
4          1
5641    1
6          1
5          6
其中5641  1 这组数据是错误的，就是没有这账号密码，其他能运行，我没有加 for那条语句，就加了个判断语句，能算是自动化测试吗

作者: 哈哈哈你的 时间: 2015-3-26 14:02

q464907380 发表于 2015-3-26 00:45
你把弹出来的错误提示框添加到对象仓库，在要弹出错误框那加if语句判断错误提示是否弹出在加个for循环
...

Browser("电子商城").Page("电子商城").Image("fg-land").Check CheckPoint("fg-land_2")
Browser("电子商城").Page("电子商城").WebEdit("name").Set DataTable("p_name", dtGlobalSheet)
Browser("电子商城").Page("电子商城").WebEdit("password").SetSecure DataTable("p_password", dtGlobalSheet)
Browser("电子商城").Page("电子商城").Image("fg-land").Click 3, 12
For i=0 to datatable.GetSheet(action1).GetRowCount
If Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").exist Then
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
else
Browser("电子商城").Page("电子商城_2").Link("安全退出").Click
Window("Internet Explorer").Dialog("来自网页的消息").WinButton("确定").Click
Browser("电子商城").Page("电子商城_2").Sync
Browser("电子商城").CloseAllTabs
End If
next
是这样吗。但加了FOR循环会出现The DataTable.GetSheet operation failed. Specify the sheet using a text string or numerical index value。
如果不要FOR语句只要判断语句就可以了但这算是自动化测试吗

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