home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 8 / 08.iso / d / d026 / 1.ddi / DTA.IN_ / DTA.bin
Encoding:
Text File  |  1992-03-22  |  5.6 KB  |  176 lines
  1. '-------------------------------------------------------------------------
  2. '
  3. ' NAME     : DTA.INC
  4. ' DESC     : Contains common routines used by DTA-PEN.WTD, DTA-BRU.WTD, 
  5. '            DTA-PRIM.WTD, DTA-BKMO.WTD.
  6. ' DATE     : 10-03-91
  7. ' 
  8. '-------------------------------------------------------------------------
  9.  
  10. '$IFNDEF SMOKE
  11. '$DEFINE PROMPT
  12. '$ENDIF
  13.  
  14. '$include: 'mfdll.inc'
  15. '$include: 'wtdutil.inc'
  16. '$IFDEF CTSHELL
  17.    '$include: 'hct.inc'
  18. '$ENDIF
  19.  
  20. CONST TESTAPP  = "dta"                         ' name of app w/o extension
  21. CONST WINTITLE = "Display Test Application"    ' window title
  22. CONST LOG      = "dta-test.log"                ' name of log file
  23. CONST MAXREP   = 5        ' repeat this many times when script says several
  24. CONST DISP_EXT = ".zzz"                        ' all display tests will 
  25.                                                '  write results to this 
  26.                                                '  extension.
  27.  
  28. GLOBAL  hDTA AS INTEGER                        ' handle to DTA window
  29.  
  30. DECLARE SUB InitApp
  31. DECLARE SUB EndScript
  32. DECLARE SUB EndTest (szTestName AS STRING)
  33. DECLARE SUB SelectOptionMenu (menu$)
  34. DECLARE SUB DrawObject
  35. DECLARE SUB PrintPause (szMsg AS STRING)
  36. DECLARE SUB ResetDTA
  37. DECLARE SUB SelectComboBoxItem (nIndex%)
  38. DECLARE SUB StartScript
  39. DECLARE SUB StartTest (szTestName AS STRING, nSection AS INTEGER, lNum AS LONG)
  40. DECLARE SUB TestHeader (testName$)
  41.  
  42. '--------------------------------------------------------------------------
  43. '--------------------------------------------------------------------------
  44.  
  45. SUB selectOptionMenu (menu$)
  46.    ' win30 doesn't do selectMenuItem() !@&@#!!!
  47.  
  48.    SendKeys "%o" + menu$   ' SelectMenuItem "Options" SelectMenuItem menu$
  49. END SUB
  50.  
  51. '--------------------------------------------------------------------------
  52.  
  53. SUB drawObject
  54.    '$IFDEF PROMPT
  55.       hWnd% = GetActiveWindow ()
  56.       SendKeys  "{F3}"                      ' draw the shape      
  57.       WHILE hwnd% = GetActiveWindow ()          
  58.          ' wait for prompt window to pop up...
  59.       WEND
  60.   
  61.       WHILE hwnd% <> GetActiveWindow ()         
  62.          ' wait for user to answer prompt...
  63.       WEND
  64.    '$ELSE
  65.        SendKeys  "{F3}"                      ' draw the shape              
  66.    '$ENDIF
  67.    
  68. '   Inc nVar                               ' add one to variation counter
  69. END SUB
  70.  
  71. '-------------------------------------------------------------------------
  72.  
  73. SUB EndScript
  74.    Print "In EndScript..."
  75.    '$IFDEF CTSHELL
  76.       lRetCode = SendMessage (hDTA, 10003, 0, 0)            
  77.       HctScriptEnd RS_PASSED      
  78.    '$ENDIF
  79.    PrintPause "End of " + SCRIPT + " Test"   
  80.    SelectWindow WINTITLE     ' make sure we're closing the right app...
  81.    SendKeys "%{F4}"          ' terminate app ("I'LL BE BACK!!")
  82. END SUB
  83.  
  84. '-------------------------------------------------------------------------
  85.  
  86. SUB EndTest (szTestName AS STRING)
  87.  
  88.    PrintPause "End of " + szTestName + " Test"
  89. END SUB
  90.  
  91. '--------------------------------------------------------------------------
  92.  
  93. SUB SelectComboBoxItem (nIndex%)
  94.    ' allocate buffer
  95.    szComboText$ = "                                                    " 
  96.    GetComboBoxItemText nIndex%, szComboText$, 20
  97.    ClickComboBoxItem szComboText$
  98. END SUB
  99.  
  100. '--------------------------------------------------------------------------
  101.  
  102. SUB InitApp
  103.    IF EXISTS (TESTAPP + ".exe") = 0 THEN
  104. '$IFNDEF CTSHELL
  105.       LogPause SCRIPT + ": Unable to initialize [" + TESTAPP + ".exe]"
  106. '$ELSE
  107.       Pause TEST_NAME + ": Unable to initialize [" + TESTAPP + ".exe]"
  108. '$ENDIF
  109.       END                ' terminate test script
  110.    ELSE 
  111.       RUN TESTAPP + " " + TEST_NAME, NOWAIT
  112. '      WAIT 2                          'wait for window to be registered
  113.       SelectWindow   WINTITLE          ' select testapp's window
  114.  
  115.       IF WindowExists ("Logging Options") THEN
  116.          SelectWindow "Logging Options"
  117.          ' This is the debug options - only comes up first time to 
  118.          '   create a DTA section in WIN.INI
  119.          SendKeys "%f"                 ' choose log to file
  120.          ClickButton "OK"              ' close debug options dlg
  121.       ENDIF
  122.  
  123.       hDTA = GetActiveWindow()         ' save the handle to DTA window
  124.       
  125.       selectOptionMenu "n"             ' select points dlg
  126.       SendKeys "%1{tab}50{tab}50"      ' turn off random checkboxes
  127.       SendKeys "%2{tab}200{tab}200"    ' turn off random checkboxes      
  128.       SendKeys "%3%4"                  ' turn these off too
  129.       SendKeys "%k"                    ' ClickButton "O&K"
  130.  
  131.       '$IFDEF PROMPT
  132.          ' turn on smart prompting
  133.          SelectOptionMenu "s"          ' SelectMenuItem "Smart Prompting" 
  134.       '$ENDIF
  135.    END IF
  136. END SUB
  137.  
  138. '-------------------------------------------------------------------------
  139.  
  140. SUB PrintPause (szMsg AS STRING)
  141.    '$IFDEF PROMPT 
  142.       Pause szMsg
  143.    '$ENDIF
  144.    Print szMsg
  145. END SUB
  146.  
  147. '-------------------------------------------------------------------------
  148.  
  149. SUB ResetDTA
  150.    SendKeys "%ot%od"    ' options: repeat last, default settings
  151. END SUB
  152.  
  153. '-------------------------------------------------------------------------
  154.  
  155. SUB StartTest (szTestName AS STRING, nSection AS INTEGER, lNum AS LONG)
  156.    DIM lRetCode AS LONG
  157.  
  158.    lRetCode = SendMessage (hDTA, 10001, nSection, lNum)
  159.    PrintPause "Start Of " + szTestName + " Test"
  160. END SUB
  161.  
  162. '-------------------------------------------------------------------------
  163.  
  164. SUB StartScript
  165.    '$IFDEF CTSHELL
  166.       HctScriptBegin  TESTAPP
  167.    '$ELSE
  168.       ViewPort ON
  169.       ViewPort CLEAR
  170.    '$ENDIF
  171.  
  172.    Print "In StartScript..."
  173.    PrintPause "Start of " + SCRIPT + " Test"
  174. END SUB
  175.  
  176.