db_qtp 发表于 2012-3-16 10:11:00

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:49

Waiting for the answers

hsjzfling 发表于 2012-3-16 16:41:59

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

db_qtp 发表于 2012-3-16 18:09:51

回复 3# hsjzfling


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

正在更新 发表于 2012-3-17 14:31:34

和开发做单元测试一样写测试代码调用此函数 或单步运行 查看debug view

db_qtp 发表于 2012-3-19 12:58:30

回复 5# 正在更新


    ok. Many thanks

feiyunkai 发表于 2012-3-20 10:19:57

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:50

调用一下就可以了

da乐 发表于 2012-3-20 15:55:09

先注册对象,然后调用

cindyker 发表于 2012-3-21 17:35:32

:P调用函数

wob哭 发表于 2012-3-26 14:23:13

初学qtp

db_qtp 发表于 2012-3-29 11:38:26

回复 7# feiyunkai


    Many thanks

db_qtp 发表于 2012-3-29 11:40:23

回复 9# da乐

多谢回答

hbycyf123 发表于 2012-4-3 21:41:00

有没有哪位朋友知道，QTP是否可以录制多媒体软件，如cyberlink, powerdictor, WInDVD，暴风影音之类的软件， 我们部门主要负责这部分软件的系统兼容性测试，希望导入QTP自动化测试。thanks！
页: [1]
查看完整版本: QTP 中如何验证FUNCTION 是否写得对