Forum Discussion

jarnold615's avatar
jarnold615
Occasional Contributor
14 years ago

TC 7.5 slows to crawl after reaching particular subroutine in VBScript

Whenever I try to run the following script against the Delphi rich-client application that I test, TC always slows to a crawl when it gets to the "EditWorkRuleMinContin" subroutine.  It takes about 15 seconds just to enter a single character in a text field.  All I'm doing is adding an item in a grid, then editing it and repeating this eight more times.  I haven't encountered this problem anywhere else.  Has this kind of problem ever been reported?  I'm running Win7 Pro.




Sub WorkRuleDef


WorkRuleDef

Call OpenModule("Work Rules")


Call AddWorkRule("Work Rule 1", "WR Desc", "Minimum Time in Window")


Call EditWorkRuleMinTimeWin("Work Rule 1", "WorkSuperstate", "2:00", "fiscal", 5, "YEARLY")


Call AddWorkRule("Work Rule 2", "WR Desc", "Maximum Time in Window")


Call EditWorkRuleMaxTimeWin("Work Rule 2", "WorkSuperstate", "2:00", "fiscal", 5, "YEARLY")


Call AddWorkRule("Work Rule 3", "WR Desc", "Minimum Schedule in Window")


Call EditWorkRuleMinSchedWin("Work Rule 3", "new name", "5", "moving", 30, "YEARLY")


Call AddWorkRule("Work Rule 4", "WR Desc", "Maximum Schedule in Window")


Call EditWorkRuleMaxSchedWin("Work Rule 4", "new name", "5", "moving", 30, "YEARLY")


Call AddWorkRule("Work Rule 5", "WR Desc", "Minimum Consecutive Schedule")


Call EditWorkRuleMinConsecSched("Work Rule 5", "new name", 5, "True")


Call AddWorkRule("Work Rule 6", "WR Desc", "Maximum Consecutive Schedule")


Call EditWorkRuleMaxConsecSched("Work Rule 6", "new name", 5, "True")


Call AddWorkRule("Work Rule 7", "WR Desc", "Minimum Time after Schedule")


Call EditWorkRuleMinTimeAfterSched("Work Rule 7", "new name", 5, "nrmpay", "24:00")


Call AddWorkRule("Work Rule 8", "WR Desc", "Minimum Continuous Time Off")


 


'at beginning of next subroutine, TC slows to a crawl:


Call EditWorkRuleMinContin("Work Rule 8", "nrmpay", "24:00", "fiscal", "48:00", "YEARLY")


Call AddWorkRule("Work Rule 9", "WR Desc", "Conditional Schedule")


Call EditWorkRuleCondSched("Work Rule 9", "new name", 2, "false", "new name", 3, "true", "true", "true")


Call EditWorkRuleGeneral("Work Rule 9", "new name", "new desc")


Call DupWorkRule("Work Rule 8", "dup name", "dup desc")



End sub



  • tristaanogre's avatar
    tristaanogre
    Esteemed Contributor
    14 years ago
    Without knowing what's going on in the routine in question, it's difficult to help you with specifics.
  • irina_lukina's avatar
    irina_lukina
    Super Contributor
    14 years ago

    Hi John,


    Robert is right. It's difficult to explore the behavior of the routine if you give us only its name. Could you please post the entire code of your test here so that we can reproduce the problem and see exactly what is going wrong.


    If you don't want to post your project on the forum, you can send it to our Support Team via the Contact Support form.


    Thanks.

  • jarnold615's avatar
    jarnold615
    Occasional Contributor
    14 years ago

    At some point, TC slows to a crawl while running one of these two subroutines.  However, I can get around the problem by commenting out previous subroutines and allowing these to run so I'm not sure the problem is in the VBScript itself:



    Sub AddWorkRule(WRName, WRDesc, WRType)


    Set Pro = Sys.Process("tcs")


    Set WFMWin = Pro.Window("TfrmMainNavigator", "*", 1)


    Call WFMWin.keys("^[Ins]")


    Set Savebtn = Pro.Window("TfrmEditWorkRule", "Work Rule", 1).Window("TWFMToolBar", "", 1).Window("TWFMPanel", "", 2)


    Call Savebtn.Click


    Set OKbtn = Pro.Window("#32770", "Aspect Workforce Management", 1).Window("Button", "OK", 1)


    Call OKbtn.Click


    Set Rule = Pro.Window("TfrmEditWorkRule", "Work Rule", 1).Window("TWFMPageControl", "", 1).Window("TWFMTabSheet", "General", 1).Window("TWFMPanel", "", 2).Window("TWFMItemEntry", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call Rule.keys(WRType)


    Call Savebtn.Click


    Set OKbtn = Pro.Window("#32770", "Aspect Workforce Management", 1).Window("Button", "OK", 1)


    Call OKbtn.Click


    Set Desc = Pro.Window("TfrmEditWorkRule", "Work Rule", 1).Window("TWFMPageControl", "", 1).Window("TWFMTabSheet", "General", 1).Window("TWFMPanel", "", 2).Window("TWFMTextEdit", "", 2).Window("TcxCustomInnerTextEdit", "", 1)


    Call Desc.keys(WRDesc)


    Call Savebtn.Click


    Set OKbtn = Pro.Window("#32770", "Aspect Workforce Management", 1).Window("Button", "OK", 1)


    Call OKbtn.Click


    Set Name = Pro.Window("TfrmEditWorkRule", "Work Rule", 1).Window("TWFMPageControl", "", 1).Window("TWFMTabSheet", "General", 1).Window("TWFMPanel", "", 2).Window("TWFMTextEdit", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call Name.keys(WRName)


    Call Savebtn.Click


    Set Yesbtn = Sys.Process("tcs").Window("#32770", "Aspect Workforce Management", 1).Window("Button", "&Yes", 1)


    Call Yesbtn.ClickEnd sub




    Sub EditWorkRuleMinContin(SearchName, WRSuperstate, WRTimeOff, WRWinType, WRMovingHours, WRFiscalCal)


    Set Pro = Sys.Process("tcs")


    Set WFMWin = Pro.Window("TfrmMainNavigator", "*", 1)


    Call WFMWin.keys("^f")


    Set Scope = Pro.Window("TGridFindForm", "Find", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Scope", 3).Window("TWFMComboBox", "", 1)


    Call Scope.keys("Name")


    Set FromBegin = Pro.Window("TGridFindForm", "Find", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Origin", 1).Window("TWFMRadioButton", "From beginning", 1)


    Call FromBegin.Click


    Set Text = Pro.Window("TGridFindForm", "Find", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMTextEdit", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call Text.keys(SearchName)


    Set OKbtn = Pro.Window("TGridFindForm", "Find", 1).Window("TWFMPanel", "", 2).Window("TWFMPanel", "", 1).Window("TWFMButton", "OK", 3)


    Call OKbtn.Click


    Delay(3000)


    Call WFMWin.keys("[Enter]")


    Delay(3000)


     


    Set Configbtn = Pro.Window("TfrmEditWorkRule", "Work Rule (*)", 1).Window("TWFMPageControl", "", 1).Window("TWFMTabSheet", "General", 1).Window("TWFMPanel", "", 1).Window("TWFMButton", "Configure...", 1)


    Call Configbtn.Click


    Set Superstate = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 2).Window("TWFMItemEntry", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call Superstate.keys(WRSuperstate)


    Set TimeOff = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 2).Window("TWFMLongDuration", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call TimeOff.keys(WRTimeOff)


    if WRWinType = ("moving") then


     


    Set Moving = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Time window", 1).Window("TWFMRadioButton", "Moving window", 1)


    Call Moving.Click


    Set Hours = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Time window", 1).Window("TWFMLongDuration", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call Hours.keys(WRMovingHours)


    elseif WRWinType = ("fiscal") then


    Set Fiscal = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Time window", 1).Window("TWFMRadioButton", "Fiscal period", 2)


    Call Fiscal.Click


    Set FiscalCal = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMPanel", "", 1).Window("TWFMGroupBox", "Time window", 1).Window("TWFMItemEntry", "", 1).Window("TcxCustomInnerTextEdit", "", 1)


    Call FiscalCal.keys(WRFiscalCal)


    end if


     


    Set OKbtn = Pro.Window("TFormMinSuperstateTimeOffInWindowConfig", "Minimum Continuous Time Off in Window", 1).Window("TWFMPanel", "", 2).Window("TWFMPanel", "", 1).Window("TWFMButton", "OK", 3)


    Call OKbtn.Click


    Set Savebtn = Pro.Window("TfrmEditWorkRule", "Work Rule (*)", 1).Window("TWFMToolBar", "", 1).Window("TWFMPanel", "", 2)


    Call Savebtn.ClickEnd sub

  • irina_lukina's avatar
    irina_lukina
    Super Contributor
    14 years ago

    Hi John,


    I've looked through the code you posted, and I have the following suggestions:


    1. Try launching TestComplete as an administrator and then run your application directly from TestComplete. For this purpose, you need to add your application to the TestedApps collection first.


    2. Make sure that the Delphi and C++Builder Open Applications Support plug-in is installed and enabled in TestComplete. For more information on installing plug-ins, see the Installing Extensions help topic.


    3. Try using another method instead of Keys. This method may slow down the performance. I recommend that you enter the text to the controls with some other methods or properties (SetText, Text, wText or in a different way depending on the control's defined methods and properties of your application ).


    4. Please refer to the Automated Test Performance Tips article to obtain more suggestions on how to improve the test performance.


    Does this help?

  • jarnold615's avatar
    jarnold615
    Occasional Contributor
    14 years ago
    Well, I have been running the scripts directly from TestComplete as an administrator and the application is added to TestedApps.  I'm fairly certain the support plug-in is installed because I've been able to run dozens of other subroutines for the same app with no problem whatsoever.  The script I've written is a collection of many subroutines and it will run beautifully for about an hour or so, but when it suddently hits a particular subroutine, TC virtually stops running.  I've used the keys method all throughout my scripts without any performance problems so I don't really think that's an issue.



    I'm wondering if there are any diagnostic tools you may have that I can run on my machine to help you better understand what I'm seeing.



    John
  • irina_lukina's avatar
    irina_lukina
    Super Contributor
    14 years ago

    Hi John,


    I'm fairly certain the support plug-in is installed because I've been able to run dozens of other subroutines for the same app with no problem whatsoever.


    As far as I can see from your test, you are not working with your application as with an Open Application. To learn how to make TestComplete recognize your application as Open, please see the Open Applications in Delphi help topic.


    Please clarify one more thing: does TestComplete freeze before executing the specified routine? Or does it slow down while executing it? If the described behavior is observed during the routine execution, please try identifying the approximate line in the test that precedes the hang.


    Also, it would be very helpful for us if you provided us with the dumps of TestComplete at the moment it gets frozen. For this purpose, please follow the steps below:

    1. Download the Debugging Tools for Windows package and install it.

    2.  When TestComplete hangs, open the "Start | Run..." dialog and execute the following command:

      "C:\Program Files\Debugging Tools for Windows (x86)\windbg.exe" -pn TestComplete.exe -Q -pd -c ".dump /m C:\TCDump1.dmp;q"

    This command will make WinDbg write a memory dump of the TestComplete.exe process to the "C:\TCDump1.dmp" dump file. After the dump is written, WinDbg will be closed.

    3. Wait for 30 seconds and repeat the steps 1 and 2 (but you need to specify another file name for the dump, for example, C:\TCDump2.dmp).

    4. After that, post here the generated files.


    Also, please do this: try to terminate the process that corresponds to your application when TestComplete freezes. If TestComplete starts working fine after that, please repeat the above procedure and post here the dumps for your application.


    One more useful thing: could you please send us a sample application we could use to reproduce the problem?


    If you don't want to share the dumps files or the application on the forum, please contact our Support Team directly via the Contact Support form.


    Thanks.

  • jarnold615's avatar
    jarnold615
    Occasional Contributor
    14 years ago
    I did verify that the Dephi and C++ Builder Open Applications Support Extension is installed.  The freeze appears to occur during the "EditWorkRuleMinContin" subroutine right after the  "Call WFMWin.keys("^f")" line of code which brings up a Find window.  It's supposed to modify controls in this window after bringing up the dialog but that never happens.  I did terminate the tested application after the freeze and TC does appear to resume sending commands.  I installed the debugger and generated he two dump files as you requested and attached them.  I'll try to get the two additional dump files to you as well.  It might be too difficult to set up an instance of our application as it requires a database server.  I'd like to see if we can diagnose the problem some other way first.

     

    John
  • jarnold615's avatar
    jarnold615
    Occasional Contributor
    14 years ago
    For some reason, I'm getting an "invalid filename extension" message when I try to attach the *.dmp files. 
  • irina_lukina's avatar
    irina_lukina
    Super Contributor
    14 years ago

    Hi John,


    Our forum doesn't allow attaching .dmp files to messages. You can attach only those files that meet the following requirements:

      * the allowed file extensions are: .gif, .jpeg, .jpg, .png, .zip;

      * the maximum allowed size of the attached file is 10 Mb.


    So, I recommend that you pack these .dmp files to the ZIP archive and try attaching this archive to the message. Does this help?