51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 4254|回复: 5
打印 上一主题 下一主题

[求助] 根据update order按钮判断订票成功时回放出现问题求解释

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-9-9 15:02:09 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1测试积点
Window("Flight Reservation").Activate
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"
Window("Flight Reservation").ActiveX("MaskEdBox").Type "123112"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "15889   DEN   03:12 PM   FRA   03:57 PM   AA     $104.10"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "tianyanqin"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Dim Update_Order_Enable
Update_Order_Enable=Window("Flight Reservation").WinButton("Update Order").GetROProperty("enabled")
If Update_Order_Enable=true Then
Reporter.ReportEvent micPass
Else
    Reporter.ReportEvent micFail(出现error求解释)
End If

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2011-9-9 15:14:43 | 只看该作者
因为Window("Flight Reservation").WinButton("Insert Order").Click,执行这个的时候需要一段时间,只有这个执行完,update order 按钮才会变成true,出现这种情况: Reporter.ReportEvent micFail(出现error求解释),就是因为Window("Flight Reservation").WinButton("Insert Order").Click还没执行完毕,脚本已经跑完了
回复

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2011-9-10 15:05:38 | 只看该作者
回复 2# yidao8808
回复

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2011-9-10 15:12:53 | 只看该作者
我那是if else语句,但是他报的是参数问题,而且我又试了几下,结果是脚本后跑完,还是报参数问题,请帮我修改一下看看到底是什么原因???
回复

使用道具 举报

该用户从未签到

5#
发表于 2011-9-13 13:24:32 | 只看该作者
本帖最后由 yidao8808 于 2011-9-13 13:46 编辑

msgbox Update_Order_Enable
If Update_Order_Enable=true Then
Reporter.ReportEvent micPass, "导入票号", "导入成功"
Else
    Reporter.ReportEvent micFail, "导入票号", "导入失败"
End If

参数不对,Reporter.ReportEvent micFail后面还有两个参数,reportstepname(名称),details(详细描述)


你这样写,运行基本上是会执行Reporter.ReportEvent micFail, "导入票号", "导入失败"这句,因为就像我前面说的,msgbox Update_Order_Enable,基本都是false
回复

使用道具 举报

该用户从未签到

6#
发表于 2011-9-13 13:57:14 | 只看该作者
Dim Update_Order_Enable
Update_Order_Enable=Window("Flight Reservation").WinButton("Update Order").WaitProperty("enabled",true,10000)
If Update_Order_Enable=true Then
Reporter.ReportEvent micPass, "导入票号", "导入成功"
Else

    Reporter.ReportEvent micFail, "导入票号", "导入失败"
End If
这样写,Window("Flight Reservation").WinButton("Update Order").WaitProperty("enabled",true,10000),最多给她10秒时间去检查enabled属性,
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 23:54 , Processed in 0.076932 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表