rivermen 发表于 2011-6-24 16:57:32

很简单的批量运行，我知道很多人都会，留着作个模板

'用法：
'准备好自动化测试脚本，
'例如，
'case1 放在路经 D:\Tracking\setObj下
'case2 放在路径**下
'准备一个test suite 文件，专门存放当个case 的路径
'执行function ReadconfFile,参数是test suite的路径
'Call ReadconfFile("c:\\CaseList.txt")

Call ReadconfFile("c:\\CaseList.txt")


Function ReadconfFile(path)
        Set fso=CreateObject("Scripting.FileSystemObject")
        Set f=fso.OpenTextFile(path,1,False)
        While Not f.AtEndOfLine
                temp=f.ReadLine()
                Call RunMutiTest(temp)
        Wend
End function


Function RunMutiTest(obj)
       
        Set qtpApp=CreateObject("quicktest.Application")
        qtpApp.launch
        qtpApp.visible=True
        qtpApp.open obj
        qtpApp.Test.Run
        qtpApp.quit
        Set qtpApp=nothing
End function

maliya1314 发表于 2011-6-27 16:11:54

我就觉得不简单。。。哎，水平不高。。

datouniuniu 发表于 2011-7-1 17:07:03

学习，收藏，谢谢~

msnshow 发表于 2011-7-1 21:20:02

会了就都简单了
页: [1]
查看完整版本: 很简单的批量运行，我知道很多人都会，留着作个模板