Forum Discussion

ali_jafer's avatar
ali_jafer
Occasional Contributor
11 years ago
Solved

Checking for existence of a Script Unit and functions/subs defined in it

Suppose I am getteing name of Script Unit and any function defined in it as input from an external data source, if I want  to determine, whether this particular Script Unit and function is part of cur...
  • TanyaYatskovska's avatar
    TanyaYatskovska
    11 years ago

    Hi Ali,


     


    You can use the following function:




     //JScript


     function FunctionExists(UnitName, FunctionName)


     {


      var oTC = Sys.OleObject("TestComplete.TestCompleteApplication");


      var strProjectName = /\\([^\\]+).mds$/.exec(Project.FileName)[1];


      var colFunctions = oTC.Integration.ProjectRoutinesIterator(strProjectName);


      colFunctions.Reset();


      


      var oFunc;


      while (colFunctions.HasNext())


      {


         oFunc = colFunctions.Next;


         if ((oFunc.UnitName == UnitName) && (oFunc.Name == FunctionName))


           return true;


      }


      return false;


     }


     


      

ali_jafer's avatar
ali_jafer
Occasional Contributor
11 years ago
Thank you Tanya,

Once I thought there could not be any solution, can you please have a look at follwoing requests

     

  1.   Provide a bit of commentry especially on code before "While" block, so that I understand what is going on

    2.  

  2.   Will this work for Script Unit referenced into a Project?

    3.  

  3.   I am translating you given Code into VBScript as follows but at bold line TC is flagging error, can you please help to fix it? 



 

 Function FunctionExists(UnitName, FunctionName)


   var oTC = Sys.OleObject("TestComplete.TestCompleteApplication")


   var strProjectName = /\\([^\\]+).mds$/.exec(Project.FileName)[1]


   var colFunctions = oTC.Integration.ProjectRoutinesIterator(strProjectName)


  


  colFunctions.Reset()


  


  var oFunc


  


   while (colFunctions.HasNext())


     oFunc = colFunctions.Next


     if ((oFunc.UnitName = UnitName) && (oFunc.Name = FunctionName)) then


       FunctionExists= true


     end if


   Wend 


 FunctionExists= false


  


 End Function