Hi
So you could use the following code to interogate each of the Scipts
' Process each of the Tests that have been selected
For Each ID in Tests
' Get Test from the test factory and set to objTest
Set objTest=TDConnection.TestFactory.Item(ID)
' Check the Status of the test and process accordingly
' If the status is Ready, then Test can be executed
If objTest.Field("TS_STATUS") <> "Ready" Then
MsgBox "Status of Test is Not Ready so cannot be executed", vbOKOnly, "Information"
End If
Next
there are some things to contend with :
1. There are four workflow points where you need to make this same check - RunTests, RunTestsManually, RunTestSet and RunTests_Sprinter;
2. These entry points are Sub routines and not Functions so handling is different;
3. More that one test could be selected so the list might contain more that one test;
4. If the Test is not to be executed then you would need to remove from the List 'Tests' - not sure how this can be achieved ?;
Hope this helps as a start point
Thanks
Martin
Please note that the views expressed here are entirely my own