51Testing软件测试论坛

标题: QTP自带订票系统，如何对购票总金额添加检查点？ [打印本页]

作者: nydwp 时间: 2014-5-4 16:11
标题: QTP自带订票系统，如何对购票总金额添加检查点？
我添加了标准检查点，但是回放时，都报错，不知道这里要怎么添加随机检查点，是调用函数么？

下面是网上搜来的，但是具体怎么操作不清楚，谁知道指点下~~[attach]90042[/attach]

[attach]90041[/attach]

作者: kong051 时间: 2014-5-5 21:01
哈哈哈哈

作者: nydwp 时间: 2014-5-6 14:54
回复 2# kong051

作者: 黑羽祭 时间: 2014-5-7 12:09
回复 3# nydwp

这上面没写清楚是用什么用法做，目测是用的Insert->Checkpoint里的检查点操作。
然后在贴一个函数方式实现的检查点：http://www.cydtest.com/?p=617你都尝试一下吧

作者: nydwp 时间: 2014-5-19 15:48
回复 4# 黑羽祭

嗯，是鼠标右键添加的标准检查点，感谢大侠指点~~那个连接中内容受用了~~

作者: 张轩阳 时间: 2014-5-19 16:56
这个我之前实现过，其实比较好的办法是导出来在EXCEl中用公式自动对比的。在程序中检查可能通用性不太好

作者: dyyouai 时间: 2014-6-10 12:03
Set fly = window("regexpwndclass:=Afx:","regexpwndtitle:=Flight Reservation")
fly.WinEdit("nativeclass:=Edit","attached text:=Name:").set "huanglib"  '设置登机人姓名
fly.WinEdit("nativeclass:=Edit","attached text:=Tickets:").set 2 '购买票张数
fly.WinRadioButton("regexpwndtitle:=Business").Click '选择商务舱
PriceTemp = fly.WinEdit("nativeclass:=Edit","attached text:=Price:").GetROProperty("text") '获取机票单价￥123形式
TotalTemp = fly.WinEdit("nativeclass:=Edit","attached text:=Total:").GetROProperty("text") '获取机票总价
Price = mid(PriceTemp,2)    '去掉￥元符号
Total = mid(TotalTemp,2)
msgbox Price
msgbox Total

Price1 = Price*2
msgbox Price1&","&Total
If Total -1  = Price1-1 Then
reporter.ReportEvent micPass,"Price check Succes" ,"Price Check  ok"
else
reporter.ReportEvent micFail,"Price Check Fail","Price = "&Price&"Total"&Total
End If

作者: dyyouai 时间: 2014-6-10 12:10
如果需要频繁判断的话，可以写成function，给的的参数就是订票的数量。

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