![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fasttest.inc CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / mstest / include|
Return to fasttest.inc CVS log | Up to [WindowsNT SDKs] / mstools / mstest / include |
1.1 ! root 1: 'FastTest.inc - definitions/declarations for Fast Test routines ! 2: ' ! 3: ' Copyright (c) 1991-1992, Microsoft Corporation. All rights reserved. ! 4: ' ! 5: 'Purpose: ! 6: ' This file declares the functions, constants and variables ! 7: ' used by the Fast Test routines. ! 8: ' ! 9: 'NOTES: ! 10: ' A common code sequence is used throughout to catch unexpected errors ! 11: ' using the ON ERROR command. The sequence is explained in this note ! 12: ' but not each time that it is used. ! 13: ' ! 14: ' gErrorType = ET_NEXT ' Global variable to indicate how to handle ! 15: ' ' an unexpected error: ! 16: ' ' ET_NEXT : save that error happened ! 17: ' ' and continue on next statement ! 18: ' ' ET_NOTHING : let driver catch unexpected ! 19: ' ' errors with message ! 20: ' ' ET_LOG : error happened in log routine ! 21: ' ! 22: ' ' some code that could cause runtime errors ! 23: ' fh1% = FREEFILE ' out of handles? ! 24: ' OPEN stFileSpec1$ FOR INPUT AS #fh1% ' file doesn't exist? ! 25: ' fh2% = FREEFILE ' out of handles? ! 26: ' OPEN stFileSpec2$ FOR INPUT AS #fh2% ' file doesn't exist? ! 27: ' ! 28: ' IF gfError THEN ' since ET_NEXT was used above, we would ! 29: ' ' execute this block if an error had ! 30: ' ' occurred. ! 31: ' XLogFailure "Could not open files for XFileCmp" ' log a failure ! 32: ' ' specific to this section of code ! 33: ' ' if XSetTerminate is called to have scripts continue in event ! 34: ' ' of errors, then the script will continue executing here ! 35: ' gErrorType = ET_NOTHING ' reset so other unexpected errors are ! 36: ' ' caught ! 37: ' gfError = FALSE ' reset because we logged this already ! 38: ' EXIT SUB ' can't continue with this function, ! 39: ' ' something went wrong ! 40: ' END IF ! 41: ! 42: ! 43: ! 44: '$DEFINE TESTCTRL ! 45: '$DEFINE TESTEVNT ! 46: '$INCLUDE 'MSTEST.inc' ! 47: '$INCLUDE 'WNAPIDEC.INC' ! 48: ! 49: ' XLog constants to determine where to log information to ! 50: CONST LOG_DISK = 2 'log to disk ! 51: CONST LOG_SCREEN = 4 'log to screen (viewport in testdrvr) ! 52: CONST LOG_COM1 = 8 'log to COM1 port ! 53: CONST LOG_COM2 = 16 'log to COM2 port ! 54: CONST LOG_MSGBOX = 32 'log the string in a msgbox (Pause in testdrvr) ! 55: ! 56: ' Mouse button constants that map to QueMouse function names, X functions ! 57: ' can use either ones ! 58: CONST LBUTTON% = VK_LBUTTON ! 59: CONST MBUTTON% = VK_MBUTTON ! 60: CONST RBUTTON% = VK_RBUTTON ! 61: ! 62: 'Global to be used to describe Log Options by ORing above Const's ! 63: GLOBAL gfLogOptions% ! 64: 'Global to be used to save above flag when logging is temporarily turned off. ! 65: GLOBAL gfTmpLogOptions% ! 66: ! 67: gfLogOptions = LOG_SCREEN 'default to showing in viewport ! 68: gfTmpLogOptions = LOG_SCREEN 'default to showing in viewport ! 69: ! 70: GLOBAL gsCurrentDir$ ! 71: gsCurrentDir$ = curdir$ ' get current directory that started execution ! 72: ! 73: ' Global variable to hold log file name ! 74: GLOBAL gsLogFileName$ ! 75: gsLogFileName$ = gsCurrentDir$ + "\FASTTEST.LOG" ! 76: ! 77: ' Global variable to hold string to use as the keystrokes necessary ! 78: ' to close the app in the case of errors ! 79: GLOBAL gsCleanup$ ! 80: gsCleanup$ = "{esc 5}%( )c" ' five escapes, alt-space C (for close) ! 81: ! 82: ' Global variable to hold class name of app ! 83: GLOBAL gsAppClassname$ ! 84: gsAppClassname$ = "" ! 85: ! 86: ' Global variable to hold state of whether to terminate on XLogFailure ! 87: GLOBAL gfTerminate% ! 88: gfTerminate% = TRUE ' default to terminate at first failure ! 89: ! 90: ' Global variable that indicates if failure occured ! 91: GLOBAL gfFailure% ! 92: gfFailure% = FALSE ! 93: ! 94: 'Global variable that indicates an ON ERROR occurred ! 95: GLOBAL gfError% ! 96: gfError% = FALSE ! 97: ! 98: 'Global variable that is the string value for the dialog window class ! 99: GLOBAL gsDialogClass$ ! 100: gsDialogClass$ = "#32770" ! 101: ! 102: ! 103: ! 104: ' Error Type constants (don't use 0) ! 105: CONST ET_NOTHING = 1 ' no handling, log unexpected runtime error ! 106: CONST ET_NEXT = 2 ' flag error, continue next statement ! 107: CONST ET_LOG = 3 ' error happened in log routines, inform user elsewise ! 108: ! 109: 'Global variable that shows what type of error to handle ! 110: GLOBAL gErrorType% ! 111: gErrorType% = ET_NOTHING ! 112: ! 113: ! 114: 'Prototypes from FTestLog.mst ! 115: DECLARE SUB XSetLogFilename(sFilename$) ! 116: DECLARE SUB XSetTerminate(fTerminate%) ! 117: DECLARE SUB XLog (stLog$) ! 118: DECLARE SUB XLogBanner(lpszInput$) ! 119: DECLARE SUB XLogWarning(lpszInput$) ! 120: DECLARE SUB XLogFailure(stFailure$) ! 121: DECLARE SUB XFailureCheck ! 122: DECLARE SUB XSetLogOptions (wLogOptions%) ! 123: DECLARE SUB XLogOff () ! 124: DECLARE SUB XLogOn () ! 125: DECLARE SUB XDialogBoxExists(s$) ! 126: DECLARE SUB XDialogBoxNotExists(s$) ! 127: DECLARE SUB XWaitDialogBox(s$, WaitTime%) ! 128: DECLARE SUB XButtonExists(stButton$) ! 129: DECLARE SUB XButtonNotExists(stButton$) ! 130: DECLARE SUB XButtonEnabled(stButton$) ! 131: DECLARE SUB XButtonNotEnabled(stButton$) ! 132: DECLARE SUB XClickButton(stButtonName$) ! 133: DECLARE SUB XListBoxExists(stListBox$) ! 134: DECLARE SUB XListBoxNotExists(stListBox$) ! 135: DECLARE SUB XFocusListBox(stListBox$) ! 136: DECLARE SUB XListBoxItemExists (stListBox$, stListBoxItem$) ! 137: DECLARE SUB XListBoxItemNotExists (stListBox$, stListBoxItem$) ! 138: DECLARE SUB XClickListBoxItem (stListBox$, stListBoxItem$) ! 139: DECLARE SUB XDblClickListBoxItem (stListBox$, stListBoxItem$) ! 140: DECLARE SUB XComboBoxExists(stComboBox$) ! 141: DECLARE SUB XComboBoxNotExists(stComboBox$) ! 142: DECLARE SUB XFocusComboBox(stComboBox$) ! 143: DECLARE SUB XComboBoxItemExists (stComboBox$, stComboBoxItem$) ! 144: DECLARE SUB XComboBoxItemNotExists (stComboBox$, stComboBoxItem$) ! 145: DECLARE SUB XClickComboBoxItem (stComboBox$, stComboBoxItem$) ! 146: DECLARE SUB XDblClickComboBoxItem (stComboBox$, stComboBoxItem$) ! 147: DECLARE SUB XCheckBoxExists(stCheckBox$) ! 148: DECLARE SUB XCheckBoxNotExists(stCheckBox$) ! 149: DECLARE SUB XCheckBoxChecked(stCheckBox$) ! 150: DECLARE SUB XCheckBoxNotChecked(stCheckBox$) ! 151: DECLARE SUB XCheckBoxEnabled(stCheckBox$) ! 152: DECLARE SUB XCheckBoxNotEnabled(stCheckBox$) ! 153: DECLARE SUB XClickCheckBox(stCheckBox$) ! 154: DECLARE SUB XEditTextExists(stEditText$) ! 155: DECLARE SUB XEditTextNotExists(stEditTextNot$) ! 156: DECLARE SUB XSetEditText (stEditCaption$, stEditText$) ! 157: DECLARE SUB XOptionButtonExists(stOptionButton$) ! 158: DECLARE SUB XOptionButtonNotExists(stOptionButton$) ! 159: DECLARE SUB XOptionButtonEnabled(stOptionButton$) ! 160: DECLARE SUB XOptionButtonNotEnabled(stOptionButton$) ! 161: DECLARE SUB XOptionButtonChecked(stOptionButton$) ! 162: DECLARE SUB XOptionButtonNotChecked(stOptionButton$) ! 163: DECLARE SUB XClickOptionButton(stOptionButton$) ! 164: DECLARE FUNCTION BDialogBoxExists%(s$) ! 165: DECLARE FUNCTION BButtonExists%(stButtonName$) ! 166: DECLARE FUNCTION BButtonEnabled%(stButtonName$) ! 167: DECLARE FUNCTION BListBoxExists%(stListBox$) ! 168: DECLARE FUNCTION IGetListBoxItemCount%(stListBox$) ! 169: DECLARE FUNCTION BListBoxItemExists%(stListBox$, stListBoxItem$) ! 170: DECLARE FUNCTION SGetListBoxItemText$(stListBox$) ! 171: DECLARE FUNCTION BComboBoxExists%(stComboBox$) ! 172: DECLARE FUNCTION IGetComboBoxItemCount%(stComboBox$) ! 173: DECLARE FUNCTION BComboBoxItemExists%(stComboBox$, stComboBoxItem$) ! 174: DECLARE FUNCTION SGetComboBoxItemText$(stComboBox$) ! 175: DECLARE FUNCTION BCheckBoxExists%(stCheckBox$) ! 176: DECLARE FUNCTION BCheckBoxChecked%(stCheckBox$) ! 177: DECLARE FUNCTION BCheckBoxEnabled%(stCheckBox$) ! 178: DECLARE FUNCTION BEditTextExists%(stEditText$) ! 179: DECLARE FUNCTION SGetEditText$(stEditCaption$) ! 180: DECLARE FUNCTION BOptionButtonExists%(stOptionButton$) ! 181: DECLARE FUNCTION BOptionButtonEnabled%(stOptionButton$) ! 182: DECLARE FUNCTION BOptionButtonChecked%(stOptionButton$) ! 183: ! 184: 'Prototypes from FTestKey.mst ! 185: DECLARE SUB XKey (s$) ! 186: DECLARE SUB XAlt (s$) ! 187: DECLARE SUB XCtrl (s$) ! 188: DECLARE SUB XShift (s$) ! 189: DECLARE SUB XCtrlAlt (s$) ! 190: DECLARE SUB XAltShift (s$) ! 191: DECLARE SUB XCtrlShift (s$) ! 192: DECLARE SUB XCtrlAltShift (s$) ! 193: DECLARE SUB XText(s$) ! 194: DECLARE SUB XEnter(s$) ! 195: DECLARE SUB XSelectMenuItem(stMenu$,stMenuItem$,stHMenuItem$) ! 196: DECLARE SUB XMenuItemExists(stMenu$,stMenuItem$, stHMenuItem$) ! 197: DECLARE SUB XMenuItemNotExists(stMenu$,stMenuItem$, stHMenuItem$) ! 198: DECLARE SUB XMenuItemGrayed(stMenu$,stMenuItem$, stHMenuItem$) ! 199: DECLARE SUB XMenuItemNotGrayed(stMenu$,stMenuItem$, stHMenuItem$) ! 200: DECLARE SUB XMenuItemChecked(stMenu$,stMenuItem$, stHMenuItem$) ! 201: DECLARE SUB XMenuItemNotChecked(stMenu$,stMenuItem$, stHMenuItem$) ! 202: DECLARE SUB XMenuItemEnabled(stMenu$,stMenuItem$, stHMenuItem$) ! 203: DECLARE SUB XMenuItemNotEnabled(stMenu$,stMenuItem$, stHMenuItem$) ! 204: DECLARE SUB XCaptionExists(stCaption$) ! 205: DECLARE SUB XCaptionNotExists(stCaption$) ! 206: DECLARE SUB XZoomWindow ! 207: DECLARE SUB XMaxWindow ! 208: DECLARE SUB XWindowMaximized ! 209: DECLARE SUB XWindowNotMaximized ! 210: DECLARE SUB XMinWindow ! 211: DECLARE SUB XWindowMinimized ! 212: DECLARE SUB XWindowNotMinimized ! 213: DECLARE SUB XRestoreWindow ! 214: DECLARE SUB XSizeActiveWindow (iXPixels%, iYPixels%, fAbsOrRel%) ! 215: DECLARE SUB XMoveActiveWindow (iXPixels%, iYPixels%, fAbsOrRel%) ! 216: DECLARE FUNCTION SKeyString$(s$) ! 217: DECLARE FUNCTION SHideKeys$(s$) ! 218: DECLARE FUNCTION BMenuItemExists%(stMenu$,stMenuItem$,stHMenuItem$) ! 219: DECLARE FUNCTION IGetMenuCount%(stMenu$, stMenuItem$) ! 220: DECLARE FUNCTION SGetMenuItemText$(stMenu$,stMenuItem$, iIndex%) ! 221: DECLARE FUNCTION BMenuItemGrayed%(stMenu$, stMenuItem$, stHMenuItem$) ! 222: DECLARE FUNCTION BMenuItemChecked%(stMenu$, stMenuItem$, stHMenuItem$) ! 223: DECLARE FUNCTION BMenuItemEnabled%(stMenu$,stMenuItem$, stHMenuItem$) ! 224: DECLARE FUNCTION SGetCaption$() ! 225: DECLARE FUNCTION BWindowMaximized% ! 226: DECLARE FUNCTION BWindowMinimized% ! 227: ! 228: 'Prototypes from FTestUtl.mst ! 229: DECLARE SUB XFileExists(stFileSpec$) ! 230: DECLARE SUB XFileNotExists(stFileSpec$) ! 231: DECLARE SUB XFileCmp(stFileSpec1$,stFileSpec2$) ! 232: DECLARE SUB XFileNotCmp(stFileSpec1$,stFileSpec2$) ! 233: DECLARE SUB XDeleteFile(stFileSpec$) ! 234: DECLARE SUB XDeleteFileIfExists(stFileSpec$) ! 235: DECLARE SUB XCreateFile(stFileSpec$,s$) ! 236: DECLARE SUB XAppendFile(stFileSpec$,s$) ! 237: DECLARE SUB XWaitMessageFile(s$,Message$, WaitTime%) ! 238: DECLARE SUB XCWDCmp(s$) ! 239: DECLARE SUB XCWDNotCmp(s$) ! 240: DECLARE SUB XDriveCmp(s$) ! 241: DECLARE SUB XDriveNotCmp(s$) ! 242: DECLARE SUB XChangeCWD(s$) ! 243: DECLARE SUB XCreateDir(s$) ! 244: DECLARE SUB XChangeDrive(s$) ! 245: DECLARE SUB XStartApp(stAppName$, stClassname$) ! 246: DECLARE SUB XSetCleanup (sCleanup$) ! 247: DECLARE SUB XDoCleanup ! 248: DECLARE SUB XMoveMouse (x%, y%) ! 249: DECLARE SUB XClickMouse(button%, x%, y%) ! 250: DECLARE SUB XDblClickMouse(button%, x%, y%) ! 251: DECLARE SUB XDragMouse (button%, Begx%, Begy%, Endx%, Endy%) ! 252: DECLARE SUB XClipBoardCmp (s$) ! 253: DECLARE SUB XClipBoardNotCmp (s$) ! 254: DECLARE FUNCTION BFileExists%(stFileSpec$) ! 255: DECLARE FUNCTION BFileCmp%(stFileSpec1$,stFileSpec2$) ! 256: DECLARE FUNCTION BCWDCmp%(s$) ! 257: DECLARE FUNCTION BDriveCmp%(s$) ! 258: DECLARE FUNCTION HStartApp%(stAppName$) ! 259: DECLARE FUNCTION BClipBoardCmp (s$) ! 260: ! 261: ! 262: ! 263: ! 264: '$INCLUDE 'FTestLog.mst' ! 265: '$INCLUDE 'FTestKey.mst' ! 266: '$INCLUDE 'FTestUtl.mst' ! 267: ! 268: ! 269: ' These routines have to be after the above includes so that ! 270: ' the functions used are declared ! 271: ! 272: ON END XDoCleanup ! 273: ! 274: ' Set a UAE trap and log failure if one occurs ! 275: ! 276: TRAP UAETrap FROM "TESTDRVR.EXE" ! 277: XSetTerminate TRUE ! 278: XLogFailure "Application UAEed" ! 279: END TRAP ! 280: ! 281: ' in the FastTest code, gErrorType will be set to one of the following ! 282: ' CASE items to be handled and set back to ET_NOTHING when the particular ! 283: ' place where an error could occur is past. ! 284: ON ERROR GOTO XErrorHandler ! 285: ! 286: GOTO UsersCode ' branch around code used by On Error ! 287: ! 288: XErrorHandler: ' execute here on error conditions ! 289: ! 290: SELECT CASE gErrorType ! 291: CASE 0 ! 292: XSetTerminate TRUE ! 293: XLogFailure "Internal FastTest Error" ' catch undeclared ET vars ! 294: CASE ET_NOTHING ! 295: XSetTerminate TRUE ! 296: XLogFailure "Unexpected RunTime error;" + ERF + ":" + STR$(ERR) + " " + ERROR$(ERR) ! 297: CASE ET_NEXT ! 298: ' Code that uses this will check the global error variable ! 299: ' and log an appropriate error if one occurred ! 300: gfError = TRUE ! 301: RESUME NEXT ! 302: CASE ET_LOG ' something happened during logging, let user know ! 303: Print "****** A Log error occurred ******" ! 304: Pause "****** A Log error occurred ******" ! 305: ! 306: ! 307: END ! 308: ! 309: END SELECT ! 310: XSetTerminate TRUE ! 311: XLogFailure "Internal FastTest error" ! 312: ! 313: ! 314: UsersCode:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.