DDT with Project Test items

See variables of the table type:

http://smartbear.com/support/viewarticle/11768/



Have you read Using DDT Drivers?

http://smartbear.com/support/viewarticle/11897/

Hi Stephen,



You can recursively traverse the project Test Items tree and run all scripts in it. To do this, follow the steps below:




1. Assign HeadIteration to a script routine that contains the following code:

Sub Main


  Dim Driver


  Set Driver = DDT.ExcelDriver("C:\MyFile.xls", "Sheet1") 


  RecNo = 0


  While Not Driver.EOF


    Project.Variables.Var1 = DDT.CurrentDriver.Value(0)


    Call RecursiveTraverse(Project.TestItems)


    Call Driver.Next()


  WEnd


  Call DDT.CloseDriver(Driver.Name)


End Sub


 


Sub RecursiveTraverse(Level)


  Items = Level.ItemCount 


  For i = 0 to Items-1


    Call runTestItemRoutine(Level.TestItem(i))


    Call RecursiveTraverse(Level.TestItem(i))


  Next


End Sub




Sub runTestItemRoutine(TestItemLevel)


  If Not TestItemLevel.ElementToBeRun Is Nothing Then


    caption = Split(TestItemLevel.ElementToBeRun.Caption, "\")


    If caption(0) = "Script" Then


      script = Split(caption(1), " - ")


      Runner.CallMethod(script(0) + "." + script(1))


    End If


  End If


End Sub

2. Disable all project test items, except for HeadIteration (the top-level one).




3. Run the project.




For more information, refer to the Runner.CallMethod and TestItems Object help topics.

Alex,



Thanks for your contribution - it's very promising. I have a concern about having to switch off all other tests, as we were planning on using that functionality to selectively run tests i.e. to resume a failed cycle from somewhere in the middle. Nevertheless, your code looks like a great jumping off point.



I'm on a thread of implementing further tests at the moment, but when done, I'll get back into this. I'll post my results (as DelphiScript) when I'm done.



Thanks again, Stephen

Hi Everyone,



Since this is the only way I have found across the forums and documnetation on how to traverse a test suite consisting of scripts in JSScript, I would really appreaciate of you can tell me what I'm doing wrong in my main function translated in JScript from the one above posted in VBScript






 



function main()

{

  var Driver;

  Driver = DDT.ExcelDriver("C:\\logon.xlsx", "BOS", true);  

  RecNo = 0;

  while (!Driver.EOF())

  { 

    Project.Variables.user = DDT.CurrentDriver.Value("user"); 

    Log.Message(Project.Variables.user);

    Project.Variables.password = DDT.CurrentDriver.Value("password");

    Log.Message(Project.Variables.password);

    recursiveTraverse(Project.TestItems); 

    Driver.Next(); 

  } 

  DDT.CloseDriver(DDT.CurrentDriver.Name); 

} 

  

function recursiveTraverse(Level) 

{

  Items = Level.ItemCount;  

  for(var i = 0; i <=(Items-1); i++)

  { 

    runTestItemRoutine(Level.TestItem(i)); 

    recursiveTraverse(Level.TestItem(i)); 

  }

} 





function runTestItemRoutine(TestItemLevel)

{ 

  if (!TestItemLevel.ElementToBeRun == null)

  {            

    var caption = TestItemLevel.ElementToBeRun.Caption.split("\\"); 

    if (caption[0] == "Script") 

    {

      var script = caption[1].split(" - "); 

      Runner.CallMethod(script[0] + "." + script[1]); 

    }

   }

}




I susptect there are some syntax errors in the runTestItemRoutine function. Would very much appreciate if you can tell me what is wrong with the function in JScipt. It seems to go through all the records in the DDT driver, but it does not run any of the scripts in the Test Items page. I tried with them being unchecked as said above, or checking all of them but it doesnt make a difference . Thanks in advance and I'm looking forward to your answer.



Best Regards,

   Ilija



P.S attached you can find a screenshot of the test items page

sorry mistake, double post

Hello Ilija,



You seem to miss the third step - you need to launch the project (right-click the project node in the Project Explorer and select Run) instead of running the main routine.

sorry, post on wrong topic

Thanks, one clarification though



Should the test items be unchecked except for the head iteration head item like in screenshot 1,

or all the items should be left checked .



As I was able to understand form the discussion above, it is not possible to selectively run test items so it doenst nmatter if they are checked or unchecked.

here is the screenmshot

Test items should be unchecked to prevent double execution - when going through the test items' tree and when executing child test items (as you run the project)



The script seems to need correction

...

Sub runTestItemRoutine(TestItemLevel)

  If Not TestItemLevel.ElementToBeRun Is Nothing Then

    caption = Split(TestItemLevel.ElementToBeRun.Caption, "\")

    If caption(0) = "Script" Then

      script = Split(caption(1), " - ")

      If script(1) <>"Main" Then

        Runner.CallMethod(script(0) + "." + script(1))

      End If

    End If

  End If

End Sub

function runTestItemRoutine(TestItemLevel)

{ 

  if (TestItemLevel.ElementToBeRun != null)

  {            

    var caption = TestItemLevel.ElementToBeRun.Caption.split("\\"); 

    if (caption[0] == "Script") 

    {

      var script = caption[1].split(" - ");

      if (script[1] != "Main") 

        Runner.CallMethod(script[0] + "." + script[1]); 

    }

  }

}

You can run selected test items from script (run Main without running the project):

...

Sub runTestItemRoutine(TestItemLevel)

  If Not TestItemLevel.ElementToBeRun Is Nothing Then

    caption = Split(TestItemLevel.ElementToBeRun.Caption, "\")

    If caption(0) = "Script" Then

      script = Split(caption(1), " - ")

      If script(1) <>"Main" and TestItemLevel.Enabled Then

        Runner.CallMethod(script(0) + "." + script(1))

      End If

    End If

  End If

End Sub

...

function runTestItemRoutine(TestItemLevel)

{ 

  if (TestItemLevel.ElementToBeRun != null)

  {            

    var caption = TestItemLevel.ElementToBeRun.Caption.split("\\"); 

    if (caption[0] == "Script") 

    {

      var script = caption[1].split(" - ");

      if (script[1] != "Main" && TestItemLevel.Enabled) 

        Runner.CallMethod(script[0] + "." + script[1]); 

    }

  }

}