QTP 中如何验证FUNCTION 是否写得对

db_qtp

在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

Waiting for the answers

hsjzfling

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

db_qtp

回复 3# hsjzfling


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

正在更新

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

db_qtp

回复 5# 正在更新


    ok. Many thanks

feiyunkai

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乐

调用一下就可以了

da乐

先注册对象,然后调用

cindyker

调用函数

wob哭

初学  qtp

db_qtp

回复 7# feiyunkai


    Many thanks

db_qtp

回复 9# da乐

多谢回答

hbycyf123

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