Custom function ExitTest

[skadam]

Hi All,

I guess this might not be possible in VB script. But just checking if by anyway we can achieve this. The requirement is that in our framework, at lot of places ExitTest statement was used for invalid cases or inputs. Now the thought is that we should close the application also in all these cases meaning calling ExitTest should first close the application and then exit the test execution. is there anyway QTP provides us this feature to overwrite the functionality of library functions. I guess no, pl share if you have any clue.

Thanks
Sravanthi

[Ankesh]

u can use RegisterUserFunc to define the existing QTp functions...

Plz check qtp help for more information.

Regards,
Ankesh

[ravi.gajul]

Hi ,
you can use the below code and call the user defined function CloseApplicationAndTest() instead of ExitTest

Code:

Function CloseApplicationAndTest() Dim intcounter Set o=Description.Create oDesc("micclass").Value="Browser" intcounter=0 While Browser("micclass:=Browser","index:="&intcounter).exist(0) and intcounter<Desktop.ChildObjects(oDesc).count If instr(1, Browser("micclass:=Browser","index:="&intcounter).getRoProperty("name"),"Quality Center") = 0 Then SystemUtil.CloseProcessByHwnd( Browser("micclass:=Browser","index:="&intcounter).getRoProperty("hwnd")) else intcounter=intcounter+1 End if wend ExitTest End Function

This will close all the browsers open except quality center

Regards,
Ravi