Dim
qtApp, qtTest, qtResult, oShell. ResultCode
Wscript.echo WScript.ScriptFullName &
" Starting"
Set
oShell = CreatObject(
"WScript.Shell"
)
Wscript.Quit ResultCode
WScript.Sleep (1000)
Set
qtApp = CreatObject(
"QuickTest.Application"
)
qtApp.Launch
BuildTag=oShell.ExpandEnvironmentStrings(
"%BUILD_TAG%"
)
If
BuildTag=
"%BUILD_TAG%"
Then
qtApp.visible = true
Else
qtApp.visible = false
End
If
qtApp.Options.Run.RunMode =
"Fast"
qtApp.Options.Run.ViewResult =
False
qtApp.Open oShell.ExpandEnvironmentStrings(
"%Result%"
) &
"TestCodeCasesRunner"
,
True
set qtTest = qtApp.Test
Dim
fso
fso = CreatObject(
"scripting.FileSystemObject"
)
qtTest.Environment.Value(
"ResultFolder"
) = oShell.ExpandEnvironmentStrings(
"%Result%"
)
&
"Report"
Set
oExl = CreatObject(
"Excel.Application"
)
Set
oWorkBook = oExl.Workbooks.Open(qtTest.Environment.Value(
"WorkSpace"
) &
""
OriginalGlobalData, ,_
True
, ,vbNullString)
oExl .application.visible=false
oExl .application.displayalerts=false
oWorkBook.Saves qtTest.Environment.Value(
"ResultFolder"
) &
""
& SourceData, 43
oExl .application.Quit
set oExl =
Nothing
Sub
Load
If
qtApp.test.Settings.Resources.Libraries.Count >0
Then
qtApp.test.Settings.Resources.Libraries.RemoveAll
End
If
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
Set
CommFol=fso.GetFolder(LibPath &
"Common"
)
Set
AllFiles=CommFol.Allfile
For
Each
FuncFile in AllFiles
If
Instr(FuncFile .name,
".vbs"
)> 0 or Instr(FuncFile .name,
".qfl"
)> 0
Then
qtApp.test.Settings.Resources.Libraries.Add LibPath &
"Common"
& FunFile.name
End
If
Next
For
Each
FuncFile in AllFiles
If
Instr(FuncFile .name,
".vbs"
)> 0 or Instr(FuncFile .name,
".qfl"
)> 0
Then
qtApp.test.Settings.Resources.Libraries.Add LibPath &
"Project"
& FunFile.name
End
If
Next
Set
fso =
Nothing
End
Sub
Sub
Run
TmpResult = qtTest.Environment.Value (
"ResultFolder"
) &
"tmp"
qtTest.Settings.Run.IterationMode =
"rngIterations"
qtTest.Settings.Run.StartIteration = 1
qtTest.Settings.Run.EndIteration = 1
qtTest.Settings.Run.
Error
=
"NextStep"
Wscript.echo qtApp.GetStatus
Set
qtResultsOpt = CreateObject(
"QuickTest.RunResultsOptions"
)
qtResultsOpt.ResultLocation = tmpResult
qtTest.Run qtResultsOpt
Wscript.echo qtApp.GetStatus
Wscript.echo qtTest.LastRunResults.Status
Wscript.echo qtTest.LastRunResults.Path
Wscript.echo qtTest.LastRunResult.LastError
RunStatus = qtTest.LastRunResults.Status
RunStatus = UCase(runStatus)
If
RunStatus <>
"PASSED"
Then
REsultCode = 1
End
If
oShell.currentdirectory = qtTest.Environment.Value(
"ResultFolder"
)
cmd=
"Reporter.exe"
+
"HTML"
oShell.Run cmd, 1,
True
Wscript.echo
"[info] QTP test finished and QTP closed."
End
Sub
Sub
Close
qtTest.close
qtApp.quit
set qtTest = nothing
set qtApp = nothing
End
Sub