QTP test run status

[RamyaSar]

Hi,

After each test case run I want to set flags correspondingly.Is there any method by which I can know the last test run status.I used Lastrunsttaus and it always shows the status as Running.

Thanks,
Ramya

[sshukla12]

Hi,
Is ur requirement is something like a single script driving n number of scripts and u want to store the result of each n number of test cases?
Please elaborate. If yes then I can surely help u and if not, then u must create a .txt file which will include the run status(say this run is nth)in it, when u go for antother run i.e. n+1 then u can refer the .txt file for the run status of previous execution and one more solution u can go for settings.add(key,value) to store the result. Please try this and let me know in case of any query.

Regards,
Sankalp

[ravi.gajul]

Assuming that you are running multiple scripts say script1, script2, script3 you may try the following code by launching it from a .vbs file.

Code:

testSet = Array( "script1", "script2", "script3" ) Set app = CreateObject("QuickTest.Application") If Not app .Launched Then ' If QuickTest is not yet open app.Launch ' Start QuickTest (with the correct add-ins loaded) End If app.Visible = True ' Make the QuickTest application visible For i = LBound( testSet ) To UBound( testSet ) testPath = PathFinder.Locate( testSet( i ) ) if testPath = "" Then Reporter.ReportEvent micFail, "Executing Set", "Test " & testSet( i ) & " not found" Exit For End If app.Open testSet( i ) ' Open the test app.Test.Settings.Run.IterationMode = "oneIteration" ' Run only one iteration app.Test.Settings.Run.OnError = "Stop" Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object qtResultsOpt.ResultsLocation = "C:\Tests\Results" ' Set the results location app.Test.Run qtResultsOpt, True ' Run the test and wait for return if StrComp( app.Test.LastRunResults.Status, "Passed" ) <> 0 Then Reporter.ReportEvent micFail, testSet( i ), app.Test.LastRunResults.LastError End If Next Set qtApp = Nothing ' Release the Application object