51Testing软件测试论坛

标题: QTP一个很小的功能,大家给帮帮忙! [打印本页]

作者: 770639805    时间: 2010-1-11 15:13
标题: QTP一个很小的功能,大家给帮帮忙!
小弟想用QTP自带的那个订票系统中实现一个读取的和比对的脚本,是这样的:就是将不同情况下的出错信息,截取出来到datatable中与预期结果比对,比对成功就passed,反之则failed,在比对的同时将状态打印到datatable中。小弟做了几个脚本但是情况不太理想,所以请大家帮帮忙,说说思路,有代码更好,谢谢咯。。以下是截图
作者: lantianwei    时间: 2010-1-11 16:44
sub LogIn (byval sLogName, byval sPwd, byval sExpValue)
' do something of login
sActValue=Diglog(Warning).TextBox(warning).GetText
 datatable(iRow, "Actual")=sActValue ‘Export the actual value to datatable
if sActValue=sExpValue then
datatable(iRow, "Statues")="Pass"  ‘Export the actual status to datatable
else
datatable(iRow, "Statues")="Fail"  ‘Export the actual status to datatable
end if
end sub
以上为伪码
作者: 770639805    时间: 2010-1-12 11:27
谢谢斑竹,但是我说的是截取那个登陆出错的信息,然后与预期结果进行比对
作者: lantianwei    时间: 2010-1-12 13:10
sActValue=Diglog(Warning).TextBox(warning).GetText >> 就指截取那个登陆出错的信息
if sActValue=sExpValue then >>与预期结果进行比对
这是伪码 所以具体要你自己改的




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2