51Testing软件测试论坛

标题: QTP 中如何验证FUNCTION 是否写得对 [打印本页]

作者: db_qtp 时间: 2012-3-16 10:11
标题: QTP 中如何验证FUNCTION 是否写得对
在QTP 中，编写好一个FUNCTION 后，如何去验证这个FUNCTION 是否正确？
例如：
Function CheckDateSortAscending(dtArray)
Dim aIndex
CheckDateSortAscending=True
For aIndex=0 To UBound(dtArray)-1
If DateDiff("d",dtArray(aIndex),dtArray(aIndex+1))<0 Then
CheckDateSortAscending=False
Exit Function
End If
Next
End Function

作者: db_qtp 时间: 2012-3-16 12:14
Waiting for the answers

作者: hsjzfling 时间: 2012-3-16 16:41
你可以将编写脚本看成是开发，那么验证开发是否正确可以用就需要测试，对于函数来说就是代码走读或者单元测试

作者: db_qtp 时间: 2012-3-16 18:09
回复 3# hsjzfling

谢谢你的回复，有没有什么template 的脚本可以参考。例如就针对上面这个function 在qtp中如何写个脚本去验证它呢？

作者: 正在更新 时间: 2012-3-17 14:31
和开发做单元测试一样写测试代码调用此函数或单步运行查看debug view

作者: db_qtp 时间: 2012-3-19 12:58
回复 5# 正在更新

ok. Many thanks

作者: feiyunkai 时间: 2012-3-20 10:19
Function CheckDateSortAscending(dtArray)
on error resume next
Dim aIndex
CheckDateSortAscending=True
For aIndex=0 To UBound(dtArray)-1
      If DateDiff("d",dtArray(aIndex),dtArray(aIndex+1))<0 Then
                  CheckDateSortAscending=False
         Exit Function
End If
Next

If err.number<>0 then
msgbox "该函数有错，错误描述为："&err.description
End If
End Function

作者: da乐 时间: 2012-3-20 15:54
调用一下就可以了

作者: da乐 时间: 2012-3-20 15:55
先注册对象,然后调用

作者: cindyker 时间: 2012-3-21 17:35

调用函数

作者: wob哭 时间: 2012-3-26 14:23
初学 qtp

作者: db_qtp 时间: 2012-3-29 11:38
回复 7# feiyunkai

Many thanks

作者: db_qtp 时间: 2012-3-29 11:40
回复 9# da乐

多谢回答

作者: hbycyf123 时间: 2012-4-3 21:41
有没有哪位朋友知道，QTP是否可以录制多媒体软件，如cyberlink, powerdictor, WInDVD，暴风影音之类的软件，我们部门主要负责这部分软件的系统兼容性测试，希望导入QTP自动化测试。 thanks！

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