UFT基本框架搭建
框架基本体系结构如下,
文件名 |
目的 |
test |
工程名 |
commonlib |
存放自定义函数 |
testcase |
存放测试用例 |
testlog |
存放日志 |
testobject |
存放对象 |
testpic |
存放截图 |
testscript |
存放测试脚本 |
代码
Dim testpath
testpath=environment.Value("TestDir")
testpaths=split(testpath,"testscript")
executefile testpaths(0)&"commonlib\genfolder.vbs"
genfolder testpaths(0)&"testlog"
genfolder testpaths(0)&"testpic"
Dim fso
Dim blccaseexist
Dim casepath
casepath=testpaths(0)&"testcase\testcase.xlsx"
Set fso=createobject("scripting.filesystemobject")
blcaseexist=fso.FileExists(casepath)
If blcaseexist Then
datatable.ImportSheet casepath,"Template","Action1"
else
reporter.ReportEvent micFail,"Template Test"