![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ftestutl.mst 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 ftestutl.mst CVS log | Up to [WindowsNT SDKs] / mstools / mstest / include |
1.1 ! root 1: 'FTESTUtl.inc - definitions for Fast Test Utility routines ! 2: ' ! 3: ' Copyright (c) 1991-1992, Microsoft Corporation. All rights reserved. ! 4: ' ! 5: 'Purpose: ! 6: ' This file defines the utility functions of the Fast Test functionality ! 7: ' ! 8: 'NOTES: ! 9: ' See FASTTEST.INC for description of the Error catching that is coded ! 10: ' throughout this module. ! 11: ! 12: ! 13: '********************************************************** ! 14: '***************** File Subroutines *********************** ! 15: '********************************************************** ! 16: ! 17: ! 18: ' ! 19: ' XFileExists(stFileSpec$) ! 20: ' ! 21: ' Description: ! 22: ' Checks that stFileSpec$ exists. ! 23: ' logs a failure if it can't find it (them; accept wildcards) ! 24: ' ! 25: ' Parameters: ! 26: ' stFileSpec$ - file specification ! 27: ' ! 28: ' Returns: ! 29: ' nothing ! 30: ' ! 31: ' Example: ! 32: ' XFileExists "*.bak" ! 33: ' ! 34: ' ! 35: SUB XFileExists(stFileSpec$) STATIC ! 36: IF NOT EXISTS(stFileSpec$) THEN ! 37: XLogFailure stFileSpec$ + " doesn't exist" ! 38: END IF ! 39: END SUB ! 40: ! 41: ' ! 42: ' XFileNotExists(stFileSpec$) ! 43: ' ! 44: ' Description: ! 45: ' Checks that stFileSpec$ doesn't exist. ! 46: ' logs a failure if it finds it (them; accepts wildcards) ! 47: ' ! 48: ' Parameters: ! 49: ' stFileSpec$ - file specification ! 50: ' ! 51: ' Returns: ! 52: ' nothing ! 53: ' ! 54: ' Example: ! 55: ' XFileNotExists "*.bak" ! 56: ' ! 57: ' ! 58: SUB XFileNotExists(stFileSpec$) STATIC ! 59: IF EXISTS(stFileSpec$) THEN ! 60: XLogFailure stFileSpec$ + " exists" ! 61: END IF ! 62: END SUB ! 63: ! 64: ' ! 65: ' BFileExists(stFileSpec$) ! 66: ' ! 67: ' Description: ! 68: ' Checks if stFileSpec$ exists ! 69: ' ! 70: ' Parameters: ! 71: ' stFileSpec$ - file specification ! 72: ' ! 73: ' Returns: ! 74: ' TRUE if it exists, FALSE if not ! 75: ' ! 76: ' ! 77: ' ! 78: FUNCTION BFileExists%(stFileSpec$) STATIC ! 79: BFileExists = EXISTS(stFileSpec$) ! 80: END FUNCTION ! 81: ! 82: ! 83: ' ! 84: ' XFileCmp(stFileSpec1$,stFileSpec2$) ! 85: ' ! 86: ' Description: ! 87: ' Compares two files, line by line ! 88: ' Logs a Failure if the files don't exist or are different ! 89: ' ! 90: ' Parameters: ! 91: ' stFileSpec1$,stFileSpec2 - file specifications ! 92: ' ! 93: ' Returns: ! 94: ' nothing ! 95: ' ! 96: ' Example: ! 97: ' XFileCmp "Foo.dat","foo.bsl" ! 98: ' ! 99: ' ! 100: ' ! 101: SUB XFileCmp(stFileSpec1$,stFileSpec2$) STATIC ! 102: DIM fh1% ' file handle of first file ! 103: DIM fh2% ' file handle of second file ! 104: DIM line1$ ' line from first file ! 105: DIM line2$ ' line from second file ! 106: DIM done ' flag to stop looping ! 107: DIM diff ' flag to indicate if files compare ! 108: ! 109: gErrorType = ET_NEXT ! 110: fh1% = FREEFILE ! 111: OPEN stFileSpec1$ FOR INPUT AS #fh1% ! 112: fh2% = FREEFILE ! 113: OPEN stFileSpec2$ FOR INPUT AS #fh2% ! 114: ! 115: IF gfError THEN ! 116: XLogFailure "Could not open files for XFileCmp" ! 117: gErrorType = ET_NOTHING ! 118: gfError = FALSE ! 119: EXIT SUB ! 120: END IF ! 121: ! 122: ! 123: done = FALSE ! 124: diff = FALSE ! 125: ! 126: IF EOF(fh1%) AND EOF(fh2%) THEN ! 127: done = TRUE ! 128: ! 129: ELSEIF EOF(fh1%) OR EOF(fh2%) THEN ! 130: diff = TRUE ! 131: done = TRUE ! 132: END IF ! 133: ! 134: ! 135: WHILE NOT done ! 136: ! 137: LINE INPUT #fh1%,line1$ ! 138: LINE INPUT #fh2%,line2$ ! 139: ! 140: IF gfError THEN ! 141: XLogFailure "XFileCmp INPUT or EOF errors" ! 142: gErrorType = ET_NOTHING ! 143: gfError = FALSE ! 144: EXIT SUB ! 145: END IF ! 146: ! 147: ! 148: IF line1$ <> line2$ THEN ! 149: done = TRUE ! 150: diff = TRUE ! 151: END IF ! 152: ! 153: IF NOT done AND EOF(fh1%) AND EOF(fh2%) THEN ! 154: done = TRUE ! 155: END IF ! 156: ! 157: IF NOT done AND (EOF(fh1%) OR EOF(fh2%)) THEN ! 158: diff = TRUE ! 159: done = TRUE ! 160: END IF ! 161: ! 162: WEND ! 163: ! 164: CLOSE #fh1% ! 165: CLOSE #fh2% ! 166: ! 167: IF gfError THEN ! 168: XLogFailure "XFileCmp CLOSE errors" ! 169: gErrorType = ET_NOTHING ! 170: gfError = FALSE ! 171: EXIT SUB ! 172: END IF ! 173: ! 174: gErrorType = ET_NOTHING ! 175: ! 176: IF diff THEN ! 177: XLogFailure "Files " + stFileSpec1$ + "," + stFileSpec2$ + " don't compare" ! 178: END IF ! 179: ! 180: END SUB ! 181: ! 182: ' ! 183: ' XFileNotCmp(stFileSpec1$,stFileSpec2$) ! 184: ' ! 185: ' Description: ! 186: ' Compares two files, line by line ! 187: ' Logs a Failure if the files don't exist or are same ! 188: ' ! 189: ' Parameters: ! 190: ' stFileSpec1$,stFileSpec2 - file specifications ! 191: ' ! 192: ' Returns: ! 193: ' nothing ! 194: ' ! 195: ' Example: ! 196: ' XFileNotCmp "Foo.dat","foo.bsl" ! 197: ' ! 198: ' ! 199: ' ! 200: SUB XFileNotCmp(stFileSpec1$,stFileSpec2$) STATIC ! 201: DIM fh1% ' file handle of first file ! 202: DIM fh2% ' file handle of second file ! 203: DIM line1$ ' line from first file ! 204: DIM line2$ ' line from second file ! 205: DIM done ' flag to stop looping ! 206: DIM diff ' flag to indicate if files compare ! 207: ! 208: gErrorType = ET_NEXT ! 209: ! 210: fh1% = FREEFILE ! 211: OPEN stFileSpec1$ FOR INPUT AS #fh1% ! 212: fh2% = FREEFILE ! 213: OPEN stFileSpec2$ FOR INPUT AS #fh2% ! 214: ! 215: IF gfError THEN ! 216: XLogFailure "Could not open files for XFileNotCmp" ! 217: gErrorType = ET_NOTHING ! 218: gfError = FALSE ! 219: EXIT SUB ! 220: END IF ! 221: ! 222: done = FALSE ! 223: diff = FALSE ! 224: ! 225: IF EOF(fh1%) AND EOF(fh2%) THEN ! 226: done = TRUE ! 227: END IF ! 228: ! 229: IF NOT done AND (EOF(fh1%) OR EOF(fh2%)) THEN ! 230: diff = TRUE ! 231: done = TRUE ! 232: END IF ! 233: ! 234: WHILE NOT done ! 235: ! 236: LINE INPUT #fh1%,line1$ ! 237: LINE INPUT #fh2%,line2$ ! 238: ! 239: IF gfError THEN ! 240: XLogFailure "XFileNotCmp INPUT or EOF errors" ! 241: gErrorType = ET_NOTHING ! 242: gfError = FALSE ! 243: EXIT SUB ! 244: END IF ! 245: ! 246: IF line1$ <> line2$ THEN ! 247: done = TRUE ! 248: diff = TRUE ! 249: END IF ! 250: ! 251: IF NOT done AND EOF(fh1%) AND EOF(fh2%) THEN ! 252: done = TRUE ! 253: END IF ! 254: ! 255: IF NOT done AND (EOF(fh1%) OR EOF(fh2%)) THEN ! 256: diff = TRUE ! 257: done = TRUE ! 258: END IF ! 259: ! 260: WEND ! 261: ! 262: CLOSE #fh1% ! 263: CLOSE #fh2% ! 264: ! 265: IF gfError THEN ! 266: XLogFailure "XFileNotCmp CLOSE errors" ! 267: gErrorType = ET_NOTHING ! 268: gfError = FALSE ! 269: EXIT SUB ! 270: END IF ! 271: ! 272: gErrorType = ET_NOTHING ! 273: ! 274: IF NOT diff THEN ! 275: XLogFailure "Files " + stFileSpec1$ + "," + stFileSpec2$ + " do compare" ! 276: END IF ! 277: END SUB ! 278: ! 279: ' ! 280: ' BFileCmp%(stFileSpec1$,stFileSpec2$) ! 281: ' ! 282: ' Description: ! 283: ' Compares two files, line by line ! 284: ' Logs a Failure if the files don't exist ! 285: ' ! 286: ' Parameters: ! 287: ' stFileSpec1$,stFileSpec2 - file specifications ! 288: ' ! 289: ' Returns: ! 290: ' FALSE IF XFileCmp would detect an error ! 291: ' ! 292: ' Example: ! 293: ' x% = BFileCmp "Foo.dat","foo.bsl" ! 294: ' ! 295: ' ! 296: ' ! 297: FUNCTION BFileCmp%(stFileSpec1$,stFileSpec2$) STATIC ! 298: DIM fh1% ! 299: DIM fh2% ! 300: DIM line1$ ! 301: DIM line2$ ! 302: DIM done ! 303: DIM diff ! 304: ! 305: gErrorType = ET_NEXT ! 306: fh1% = FREEFILE ! 307: OPEN stFileSpec1$ FOR INPUT AS #fh1% ! 308: fh2% = FREEFILE ! 309: OPEN stFileSpec2$ FOR INPUT AS #fh2% ! 310: ! 311: IF gfError THEN ! 312: BFileCmp = FALSE ! 313: gErrorType = ET_NOTHING ! 314: gfError = FALSE ! 315: EXIT FUNCTION ! 316: END IF ! 317: ! 318: done = FALSE ! 319: diff = FALSE ! 320: ! 321: IF EOF(fh1%) AND EOF(fh2%) THEN ! 322: done = TRUE ! 323: END IF ! 324: ! 325: IF NOT done AND (EOF(fh1%) OR EOF(fh2%)) THEN ! 326: diff = TRUE ! 327: done = TRUE ! 328: END IF ! 329: ! 330: WHILE NOT done ! 331: ! 332: LINE INPUT #fh1%,line1$ ! 333: LINE INPUT #fh2%,line2$ ! 334: ! 335: IF gfError THEN ! 336: BFileCmp = FALSE ! 337: gErrorType = ET_NOTHING ! 338: gfError = FALSE ! 339: EXIT FUNCTION ! 340: END IF ! 341: ! 342: IF line1$ <> line2$ THEN ! 343: done = TRUE ! 344: diff = TRUE ! 345: END IF ! 346: ! 347: IF NOT done AND EOF(fh1%) AND EOF(fh2%) THEN ! 348: done = TRUE ! 349: END IF ! 350: ! 351: IF NOT done AND (EOF(fh1%) OR EOF(fh2%)) THEN ! 352: diff = TRUE ! 353: done = TRUE ! 354: END IF ! 355: ! 356: WEND ! 357: ! 358: CLOSE #fh1% ! 359: CLOSE #fh2% ! 360: ! 361: IF gfError THEN ! 362: BFileCmp = FALSE ! 363: gErrorType = ET_NOTHING ! 364: gfError = FALSE ! 365: EXIT FUNCTION ! 366: END IF ! 367: ! 368: BFileCmp = NOT diff ' IF different a log failure would normally happen ! 369: ! 370: END FUNCTION ! 371: ! 372: ! 373: ' ! 374: ' XDeleteFile(stFileSpec$) ! 375: ' ! 376: ' Description: ! 377: ' Will delete stFileSpec$ if it, they, exists. ! 378: ' logs a failure if it can't delete them or if the file(s) ! 379: ' doesn't exist ! 380: ' ! 381: ' Parameters: ! 382: ' stFileSpec$ - file specification ! 383: ' ! 384: ' Returns: ! 385: ' nothing ! 386: ' ! 387: ' Example: ! 388: ' XDeleteFile "*.bak" ! 389: ' ! 390: ' ! 391: SUB XDeleteFile(stFileSpec$) STATIC ! 392: IF EXISTS(stFileSpec$) THEN ! 393: gErrorType = ET_NEXT ! 394: KILL stFileSpec$ ! 395: IF gfError THEN ! 396: XLogFailure "XDeleteFile " + stFileSpec$ + " could NOT be deleted" ! 397: gfError = FALSE ! 398: END IF ! 399: gErrorType = ET_NOTHING ! 400: ELSE ! 401: XLogFailure "XDeleteFile " + stFileSpec$ + " NOT deleted (doesn't exist)." ! 402: END IF ! 403: END SUB ! 404: ! 405: ' ! 406: ' XDeleteFileIfExists(stFileSpec$) ! 407: ' ! 408: ' Description: ! 409: ' Will delete stFileSpec$ if it, they, exists. ! 410: ' logs a failure if it can't delete them but doesn't if the file(s) ! 411: ' doesn't exist ! 412: ' ! 413: ' Parameters: ! 414: ' stFileSpec$ - file specification ! 415: ' ! 416: ' Returns: ! 417: ' nothing ! 418: ' ! 419: ' Example: ! 420: ' XDeleteFileIfExists "*.bak" ! 421: ' ! 422: ' ! 423: SUB XDeleteFileIfExists(stFileSpec$) STATIC ! 424: IF EXISTS(stFileSpec$) THEN ! 425: gErrorType = ET_NEXT ! 426: KILL stFileSpec$ ! 427: IF gfError THEN ! 428: XLogFailure "XDeleteFileIfExists " + stFileSpec$ + " could NOT be deleted" ! 429: gfError = FALSE ! 430: END IF ! 431: gErrorType = ET_NOTHING ! 432: END IF ! 433: END SUB ! 434: ! 435: ' ! 436: ' XCreateFile(stFileSpec$,s$) ! 437: ' ! 438: ' Description: ! 439: ' Will Create stFileSpec$ and put string in it ! 440: ' logs a failure if it can't Create it ! 441: ' ! 442: ' Parameters: ! 443: ' stFileSpec$ - file specification ! 444: ' ! 445: ' Returns: ! 446: ' nothing ! 447: ' ! 448: ' Example: ! 449: ' XCreateFile "foo.dat","Hello world" ! 450: ' ! 451: ' ! 452: ' ! 453: ! 454: SUB XCreateFile(stFileSpec$,s$) STATIC ! 455: DIM fh% ! 456: gErrorType = ET_NEXT ! 457: fh% = FREEFILE ! 458: ! 459: OPEN stFileSpec$ FOR OUTPUT AS #fh% ! 460: ! 461: PRINT #fh%,s$ ' put the string in the file ! 462: ! 463: CLOSE #fh% ! 464: ! 465: IF gfError THEN ! 466: XLogFailure "XCreateFile encountered runtime errors" ! 467: gfError = FALSE ! 468: END IF ! 469: gErrorType = ET_NOTHING ! 470: ! 471: END SUB ! 472: ! 473: ' ! 474: ' XAppendFile(stFileSpec$,s$) ! 475: ' ! 476: ' Description: ! 477: ' Will Append stFileSpec$ and put string in it ! 478: ' logs a failure if it can't Append it ! 479: ' ! 480: ' Parameters: ! 481: ' stFileSpec$ - file specification ! 482: ' ! 483: ' Returns: ! 484: ' nothing ! 485: ' ! 486: ' Example: ! 487: ' XAppendFile "foo.dat","Hello world" ! 488: ' ! 489: ' ! 490: ' ! 491: ! 492: SUB XAppendFile(stFileSpec$,s$) STATIC ! 493: DIM fh% ! 494: ! 495: gErrorType = ET_NEXT ! 496: ! 497: fh% = FREEFILE ! 498: ! 499: OPEN stFileSpec$ FOR APPEND AS #fh% ! 500: ! 501: PRINT #fh%,s$ ' put the string in the file ! 502: ! 503: CLOSE #fh% ! 504: ! 505: IF gfError THEN ! 506: XLogFailure "XAppendFile encountered runtime errors" ! 507: gfError = FALSE ! 508: END IF ! 509: gErrorType = ET_NOTHING ! 510: ! 511: END SUB ! 512: ! 513: ! 514: ' ! 515: ' XWaitMessageFile(s$,Message$,WaitTime%) ! 516: ' ! 517: ' Description: ! 518: ' Wait for file to exist, only wait up to given time, ! 519: ' check if string is in file (if string is non-empty) ! 520: ' logs a failure if the files doesn't exist, or when ! 521: ' it does and the string isn't in it. ! 522: ' ! 523: ' Parameters: ! 524: ' s$ - file specification ! 525: ' Message$ - the string to look for ! 526: ' WaitTime% - the longest to wait ! 527: ' ! 528: ' Returns: ! 529: ' nothing ! 530: ' ! 531: ' Example: ! 532: ' XWaitMessageFile "foo.dat","Hello world",20 ! 533: ' ! 534: ' ! 535: ' ! 536: ! 537: SUB XWaitMessageFile(s$,Message$, WaitTime%) STATIC ! 538: ! 539: DIM fDone% ' flag to stop looping ! 540: DIM fFound% ' flag to indicate if file found ! 541: DIM lineIn$ ' line from file ! 542: DIM inret% ' return from INSTR ! 543: DIM fh% ' File handle ! 544: ! 545: fDone = FALSE ! 546: fFound = FALSE ! 547: ! 548: WHILE NOT fDone ! 549: ! 550: IF EXISTS(s$) THEN ! 551: fDone = TRUE ! 552: fFound = TRUE ! 553: ELSE ! 554: SLEEP 1 ! 555: ! 556: WaitTime% = WaitTime% - 1 ! 557: IF WaitTime% <= 0 THEN ! 558: fDone = TRUE ! 559: END IF ! 560: END IF ! 561: WEND ! 562: ! 563: IF NOT fFound% THEN ! 564: XLogFailure "FAIL """ + s$ + """ Message File not found" ! 565: ELSE ! 566: ! 567: IF Message$ = "" THEN ! 568: ' don't bother searching if no string given ! 569: EXIT SUB ! 570: END IF ! 571: ! 572: fDone = FALSE ! 573: fFOUND = FALSE ! 574: ! 575: gErrorType = ET_NEXT ! 576: ! 577: fh% = FREEFILE ! 578: ! 579: OPEN s$ FOR INPUT AS # fh% ! 580: ! 581: IF EOF(fh%) THEN ! 582: fDone% = TRUE ! 583: END IF ! 584: ! 585: IF gfError THEN ! 586: XLogFailure "XWaitMessageFile encountered runtime error during OPEN" ! 587: gErrorType = ET_NOTHING ! 588: gfError = FALSE ! 589: EXIT SUB ! 590: END IF ! 591: ! 592: WHILE NOT fDone% ! 593: ! 594: LINE INPUT # fh%, lineIn$ ! 595: ! 596: IF gfError THEN ! 597: XLogFailure "XWaitMessageFile encountered runtime error during INPUT" ! 598: gErrorType = ET_NOTHING ! 599: gfError = FALSE ! 600: EXIT SUB ! 601: END IF ! 602: ! 603: inret% = INSTR(lineIn$,Message$) ! 604: ! 605: IF inret% <> 0 THEN ! 606: fFound% = TRUE ! 607: fDone = TRUE ! 608: END IF ! 609: ! 610: IF EOF(fh%) THEN ! 611: fDone% = TRUE ! 612: END IF ! 613: WEND ! 614: ! 615: CLOSE # fh% ! 616: ! 617: IF gfError THEN ! 618: XLogFailure "XWaitMessageFile encountered runtime error during CLOSE" ! 619: gErrorType = ET_NOTHING ! 620: gfError = FALSE ! 621: EXIT SUB ! 622: END IF ! 623: gErrorType = ET_NOTHING ! 624: ! 625: IF NOT fFound% THEN ! 626: XLogFailure "FAIL, found """ + s$ + """ Message File, """ + Message$ + """ not in it" ! 627: END IF ! 628: END IF ! 629: END SUB ! 630: ! 631: '********************************************************** ! 632: '***************** Directory Subroutines ****************** ! 633: '********************************************************** ! 634: ! 635: ' ! 636: ' XCWDCmp(s$) ! 637: ' ! 638: ' Description: ! 639: ' Compare the current working directory and log error if it ! 640: ' doesn't match the expected value ! 641: ' ! 642: ' Parameters: ! 643: ' s$ - the expected value for the current directory ! 644: ' ! 645: ' Returns: ! 646: ' nothing ! 647: ' ! 648: ' Example: ! 649: ' XCWDCmp "c:\tests" ! 650: ' ! 651: ! 652: SUB XCWDCmp(s$) STATIC ! 653: ! 654: IF BCWDCmp(s$) = 0 THEN ! 655: XLogFailure "Current working directory (" + UCASE$(CURDIR$) + ") doesn't match " + UCASE$(s$) ! 656: END IF ! 657: END SUB ! 658: ! 659: ' ! 660: ' XCWDNotCmp(s$) ! 661: ' ! 662: ' Description: ! 663: ' Compare the current working directory and log error if it ! 664: ' does match the given value ! 665: ' ! 666: ' Parameters: ! 667: ' s$ - the value for the directory that isn't expected ! 668: ' ! 669: ' Returns: ! 670: ' nothing ! 671: ' ! 672: ' Example: ! 673: ' XCWDNotCmp "c:\tests" ! 674: ' ! 675: ! 676: SUB XCWDNotCmp(s$) STATIC ! 677: ! 678: IF UCASE$(CURDIR$) = UCASE$(s$) THEN ! 679: XLogFailure "Current working directory (" + UCASE$(CURDIR$) + ") matches " + UCASE$(s$) ! 680: END IF ! 681: END SUB ! 682: ! 683: ' ! 684: ' BCWDCmp(s$) ! 685: ' ! 686: ' Description: ! 687: ' return compare of the current working directory and the expected value ! 688: ' ! 689: ' Parameters: ! 690: ' s$ - the expected value for the current directory ! 691: ' ! 692: ' Returns: ! 693: ' TRUE if matches, FALSE if doesn't ! 694: ' ! 695: ' Example: ! 696: ' flag% = BCWDCmp("c:\tests") ! 697: ' ! 698: ! 699: FUNCTION BCWDCmp%(s$) STATIC ! 700: ! 701: BCWDCmp = UCASE$(CURDIR$) = UCASE$(s$) ! 702: ! 703: END FUNCTION ! 704: ! 705: ' ! 706: ' XDriveCmp(s$) ! 707: ' ! 708: ' Description: ! 709: ' Compare the current working drive and log error if it ! 710: ' doesn't match the expected value ! 711: ' ! 712: ' Parameters: ! 713: ' s$ - the expected value for the current drive ! 714: ' ! 715: ' Returns: ! 716: ' nothing ! 717: ' ! 718: ' Example: ! 719: ' XDriveCmp "c:" ! 720: ' ! 721: ! 722: SUB XDriveCmp(s$) STATIC ! 723: ! 724: IF BDriveCmp%(s$) = 0 THEN ! 725: XLogFailure "Current working Drive (" + MID$(UCASE$(CURDIR$),1,2) + ") doesn't match " + UCASE$(s$) ! 726: END IF ! 727: END SUB ! 728: ! 729: ' ! 730: ' XDriveNotCmp(s$) ! 731: ' ! 732: ' Description: ! 733: ' Compare the current working drive and log error if it ! 734: ' does match the given value ! 735: ' ! 736: ' Parameters: ! 737: ' s$ - the expected value for the current drive ! 738: ' ! 739: ' Returns: ! 740: ' nothing ! 741: ' ! 742: ' Example: ! 743: ' XDriveNotCmp "c:" ! 744: ' ! 745: SUB XDriveNotCmp(s$) STATIC ! 746: ! 747: IF MID$(UCASE$(CURDIR$),1,2) = UCASE$(s$) THEN ! 748: XLogFailure "Current working Drive (" + MID$(UCASE$(CURDIR$),1,2) + ") matches " + s$ ! 749: END IF ! 750: END SUB ! 751: ! 752: ' ! 753: ' BDriveCmp(s$) ! 754: ' ! 755: ' Description: ! 756: ' return compare the current working drive and the expected value ! 757: ' ! 758: ' Parameters: ! 759: ' s$ - the expected value for the current drive ! 760: ' ! 761: ' Returns: ! 762: ' TRUE if matches, FALSE if doesn't ! 763: ' ! 764: ' Example: ! 765: ' flag% = BDriveCmp("c:") ! 766: ' ! 767: ! 768: FUNCTION BDriveCmp%(s$) STATIC ! 769: ! 770: BDriveCmp = MID$(UCASE$(CURDIR$),1,2) = UCASE$(s$) ! 771: ! 772: END FUNCTION ! 773: ! 774: ' ! 775: ' XChangeCWD(s$) ! 776: ' ! 777: ' Description: ! 778: ' Change to given working directory, log failure if doesn't succeed ! 779: ' ! 780: ' Parameters: ! 781: ' s$ - directory to change to ! 782: ' ! 783: ' Returns: ! 784: ' nothing ! 785: ' ! 786: ' Example: ! 787: ' XChangeCWD "\tmp" ! 788: ' ! 789: ' ! 790: SUB XChangeCWD(s$) STATIC ! 791: gErrorType = ET_NEXT ! 792: CHDIR s$ ! 793: IF gfError THEN ! 794: XLogFailure "XChangeCWD could not change directory" ! 795: gfError = FALSE ! 796: END IF ! 797: gErrorType = ET_NOTHING ! 798: END SUB ! 799: ! 800: ' ! 801: ' XCreateDir(s$) ! 802: ' ! 803: ' Description: ! 804: ' Create the given directory, log failure if doesn't succeed ! 805: ' ! 806: ' Parameters: ! 807: ' s$ - directory to create ! 808: ' ! 809: ' Returns: ! 810: ' nothing ! 811: ' ! 812: ' Example: ! 813: ' XCreateDir "\tmpdir" ! 814: ' ! 815: ' ! 816: SUB XCreateDir(s$) STATIC ! 817: gErrorType = ET_NEXT ! 818: MKDIR s$ ! 819: IF gfError THEN ! 820: XLogFailure "XCreateDir could not create directory" ! 821: gfError = FALSE ! 822: END IF ! 823: gErrorType = ET_NOTHING ! 824: END SUB ! 825: ! 826: ' ! 827: ' XChangeDrive(s$) ! 828: ' ! 829: ' Description: ! 830: ' Change the current working drive, log failure if doesn't succeed ! 831: ' ! 832: ' Parameters: ! 833: ' s$ - drive to change to ! 834: ' ! 835: ' Returns: ! 836: ' nothing ! 837: ' ! 838: ' Example: ! 839: ' XChangeDrive "c:" ! 840: ' ! 841: ' ! 842: SUB XChangeDrive(s$) STATIC ! 843: gErrorType = ET_NEXT ! 844: CHDRIVE s$ ! 845: IF gfError THEN ! 846: XLogFailure "XChangeDrive could not change drive" ! 847: gfError = FALSE ! 848: END IF ! 849: gErrorType = ET_NOTHING ! 850: END SUB ! 851: ! 852: '********************************************************** ! 853: '***************** Program Subroutines ******************** ! 854: '********************************************************** ! 855: ! 856: ! 857: ! 858: ' ! 859: ' HStartApp%(stAppName$) ! 860: ' ! 861: ' Description: ! 862: ' Starts app AppName and returns the handle to the App ! 863: ' ! 864: ' Parameters: ! 865: ' stAppName$ - name of app to WinExec and get handle to ! 866: ' ! 867: ' Returns: ! 868: ' handle to application started ! 869: ' ! 870: ' Example: ! 871: ' hWinHelp% = HStartApp("winhelp.exe") ! 872: ' ! 873: ' ! 874: FUNCTION HStartApp%(stAppName$) STATIC ! 875: DIM Bogus%, hwndActive%, hwndNewApp% ! 876: DIM lpszTemp$ ! 877: ! 878: ' Get the current foreground window ! 879: hwndActive = GetForegroundWindow () ! 880: ! 881: Bogus% = WinExec (stAppName$, SW_SHOWNORMAL) ! 882: lpszTemp$ = "WinExec error with " + stAppName$ + " :" ! 883: ! 884: ' WinExec defines SOME of the values between 0 and 32 ! 885: ' as errors... any return value greater than 32 ! 886: ' should be considered a success! ! 887: SELECT CASE Bogus% ! 888: CASE 0 ! 889: XLogFailure lpszTemp$ + "Out of memory - exiting" ! 890: ! 891: CASE 2 ! 892: XLogFailure lpszTemp$ + "File not found" ! 893: End ! 894: CASE 3 ! 895: XLogFailure lpszTemp$ + "Path not found" ! 896: ! 897: CASE 5 ! 898: XLogFailure lpszTemp$ + "Attempt to dynamically link to a task" ! 899: ! 900: CASE 6 ! 901: XLogFailure lpszTemp$ + "Library requires separate data segments" ! 902: ! 903: CASE 10 ! 904: XLogFailure lpszTemp$ + "Incorrect Windows version" ! 905: ! 906: CASE 11 ! 907: XLogFailure lpszTemp$ + "Invalid EXE file" ! 908: ! 909: CASE 12 ! 910: XLogFailure lpszTemp$ + "OS/2 application" ! 911: ! 912: CASE 13 ! 913: XLogFailure lpszTemp$ + "DOS 4.0 application" ! 914: ! 915: CASE 14 ! 916: XLogFailure lpszTemp$ + "Unknown EXE type" ! 917: ! 918: CASE 15 ! 919: XLogFailure lpszTemp$ + "Must run in real mode Windows" ! 920: ! 921: CASE 16 ! 922: XLogFailure lpszTemp$ + "Cannot run more than one instance" ! 923: ! 924: CASE 17 ! 925: XLogFailure lpszTemp$ + "Large-frame EMS allows only one instance" ! 926: ! 927: CASE 18 ! 928: XLogFailure lpszTemp$ + "Must run in standard or enhanced mode Windows" ! 929: ! 930: CASE 0 TO 32 ! 931: XLogFailure lpszTemp$ + "Unknown Error in WinExec" ! 932: ! 933: END SELECT ! 934: ! 935: ' Wait until the old foreground window is no longer the foreground wnd ! 936: while hwndActive = GetForegroundWindow ! 937: sleep 1 ! 938: wend ! 939: ! 940: HStartApp = GetForegroundWindow () ! 941: END FUNCTION ! 942: ! 943: ' ! 944: ' XStartApp(stAppName$) ! 945: ' ! 946: ' Description: ! 947: ' Starts app AppName and sets handle to ghAppHwnd. ! 948: ' if we get a null handle, THEN we end the script here. ! 949: ' ! 950: ' Parameters: ! 951: ' stAppName$ - name of app to WinExec ! 952: ' ! 953: ' Returns: ! 954: ' nothing ! 955: ' ! 956: ' Example: ! 957: ' XStartApp "winhelp.exe" ! 958: ' ! 959: ' ! 960: SUB XStartApp(stAppName$, stClassname$) STATIC ! 961: DIM logstr$ ! 962: 'ghAppHwnd is a global ! 963: ghAppHwnd = HStartApp(stAppName$) ! 964: IF (ghAppHwnd = 0) THEN ! 965: 'we didn't get a handle ! 966: XLogFailure "Unable to start app " + stAppName$ ! 967: ELSEIF stClassname$ <> "" THEN ! 968: gsAppClassname = stClassname$ ' remember it for later ! 969: IF FindWindow(stClassname$,NULL) = 0 THEN ! 970: ' The app isn't around ! 971: logstr$ = "The app " + stAppName$ + " started but didn't stay OR..." ! 972: logstr$ = logstr$ + CRLF$ + "the given class name (" ! 973: logstr$ = logstr$ + stClassname$ + ") is incorrect" ! 974: XLogFailure logstr$ ! 975: END IF ! 976: END IF ! 977: END SUB ! 978: ! 979: ' ! 980: ' XSetCleanup(sCleanup$) ! 981: ' ! 982: ' Description: ! 983: ' Stores a user defined DoKeys string to be used to exit the ! 984: ' application automatically. If set to an empty string, ! 985: ' nothing will be sent with DoKeys but there will still be ! 986: ' a log failure if the application is still running when the ! 987: ' script ends (no check is done if there wasn't a classname ! 988: ' supplied with XStartApp ! 989: ' ! 990: ' Parameters: ! 991: ' sCleanup$ - the string to use with DoKeys to end the app ! 992: ' ! 993: ' Returns: ! 994: ' nothing ! 995: ' ! 996: ' Example: ! 997: ' XSetCleanup "{esc 5}%vx" ! 998: ' ! 999: ' ! 1000: SUB XSetCleanup (sCleanup$) STATIC ! 1001: gsCleanup$ = sCleanup$ ! 1002: END SUB ! 1003: ! 1004: ' This routine is not intended to be called in the user script. ! 1005: ' This routine is executed when the script finishes with an END ! 1006: ' statement. Its purpose is to find the application started with ! 1007: ' XStartapp using the classname supplied there. if it exists, ! 1008: ' and the gsCleanup string is nonempty, the gsCleanup string will ! 1009: ' be played. This may still not get rid of the app for various ! 1010: ' reasons: maybe it is prompting to save a file, or it won't exit ! 1011: ' a dialog... ! 1012: ! 1013: SUB XDoCleanup STATIC ! 1014: DIM logstr$ ! 1015: IF gsCleanup$ <> "" AND gsAppClassname$ <> "" AND FindWindow(gsAppClassname$,NULL) <> 0 THEN ! 1016: DoKeys gsCleanup$ ! 1017: END IF ! 1018: IF gsAppClassname$ <> "" AND FindWindow(gsAppClassname$,NULL) <> 0 THEN ! 1019: logstr$ = "The app with class name " + gsAppClassname$ + " was not" ! 1020: logstr$ = logstr$ + CRLF$ + "halted by the cleanup string " + gsCleanup$ ! 1021: XLogFailure logstr$ ! 1022: END IF ! 1023: ! 1024: END SUB ! 1025: ! 1026: ! 1027: ! 1028: '********************************************************** ! 1029: '***************** Mouse Subroutines ********************** ! 1030: '********************************************************** ! 1031: ! 1032: ' The mouse routines use the VK_LBUTTON, VK_RBUTTON, VK_MBUTTON ! 1033: ' constants to determine which button to use (or LBUTTON, MBUTTON or RBUTTON ! 1034: ' as defined in fasttest.inc ! 1035: ! 1036: ! 1037: ' ! 1038: ' XMoveMouse(x%,y%) ! 1039: ' ! 1040: ' Description: ! 1041: ' Moves the mouse pointer to specified absolute screen coordinates ! 1042: ' ! 1043: ' Parameters: ! 1044: ' x%,y% - x and y coordinates to move to ! 1045: ' ! 1046: ' Returns: ! 1047: ' nothing ! 1048: ' ! 1049: ' Example: ! 1050: ' XMoveMouse 100,120 ! 1051: ' ! 1052: ' ! 1053: ! 1054: SUB XMoveMouse (x%, y%) STATIC ! 1055: ! 1056: QueMouseMove x%,y% ! 1057: QueFlush FALSE ! 1058: END SUB ! 1059: ! 1060: ! 1061: ' ! 1062: ' XClickMouse(button%,x%,y%) ! 1063: ' ! 1064: ' Description: ! 1065: ' Clicks the mouse pointer to specified absolute screen coordinates ! 1066: ' ! 1067: ' Parameters: ! 1068: ' button% - which button to click ! 1069: ' x%,y% - x and y coordinates to move to ! 1070: ' ! 1071: ' Returns: ! 1072: ' nothing ! 1073: ' ! 1074: ' Example: ! 1075: ' XClickMouse LBUTTON,100,120 ! 1076: ' ! 1077: ' ! 1078: ! 1079: SUB XClickMouse(button%, x%, y%) STATIC ! 1080: ! 1081: QueMouseDn button%,x%,y% ! 1082: QueMouseUp button%,x%,y% ! 1083: QueFlush FALSE ! 1084: ! 1085: END SUB ! 1086: ! 1087: ' ! 1088: ' XDblClickMouse(button%,x%,y%) ! 1089: ' ! 1090: ' Description: ! 1091: ' Clicks the mouse pointer to specified absolute screen coordinates ! 1092: ' ! 1093: ' Parameters: ! 1094: ' button% - which button to double click ! 1095: ' x%,y% - x and y coordinates to move to ! 1096: ' ! 1097: ' Returns: ! 1098: ' nothing ! 1099: ' ! 1100: ' Example: ! 1101: ' XDblClickMouse LBUTTON,100,120 ! 1102: ' ! 1103: ' ! 1104: SUB XDblClickMouse(button%, x%, y%) STATIC ! 1105: ! 1106: QueMouseDblClk button%,x%,y% ! 1107: QueFlush FALSE ! 1108: ! 1109: END SUB ! 1110: ! 1111: ' ! 1112: ' XDragMouse (button%, Begx%, Begy%, Endx%, Endy%) ! 1113: ' ! 1114: ' Description: ! 1115: ' Drags the mouse pointer to specified absolute screen coordinates ! 1116: ' ! 1117: ' Parameters: ! 1118: ' button% - which button to use for dragging ! 1119: ' Begx%,Begy% - x and y coordinates to Drag from ! 1120: ' Endx%,Endy% - x and y coordinates to Drag to ! 1121: ' ! 1122: ' Returns: ! 1123: ' nothing ! 1124: ' ! 1125: ' Example: ! 1126: ' XDragMouse LBUTTON,100,120, 200,220 ! 1127: ' ! 1128: ' ! 1129: SUB XDragMouse (button%, Begx%, Begy%, Endx%, Endy%) STATIC ! 1130: ! 1131: QueMouseDn button%,Begx%,Begy% ! 1132: QueMouseMove Endx%,Endy% ! 1133: QueMouseUp button%,Endx%,Endy% ! 1134: QueFlush FALSE ! 1135: END SUB ! 1136: ! 1137: ! 1138: ! 1139: ! 1140: '********************************************************** ! 1141: '***************** ClipBoard Subroutines ****************** ! 1142: '********************************************************** ! 1143: ! 1144: ! 1145: ' ! 1146: ' XClipBoardCmp(s$) ! 1147: ' ! 1148: ' Description: ! 1149: ' Compare given string to what is in the clipboard, log failure ! 1150: ' if they don't match ! 1151: ' ! 1152: ' Parameters: ! 1153: ' s$ - string to compare ! 1154: ' ! 1155: ' Returns: ! 1156: ' nothing ! 1157: ' ! 1158: ' Example: ! 1159: ' XClipBoardCmp "07734" ! 1160: ' ! 1161: ' ! 1162: SUB XClipBoardCmp (s$) STATIC ! 1163: ! 1164: IF s$ <> CLIPBOARD$ THEN ! 1165: XLogFailure "String does not match clipboard" ! 1166: END IF ! 1167: END SUB ! 1168: ! 1169: ' ! 1170: ' XClipBoardNotCmp(s$) ! 1171: ' ! 1172: ' Description: ! 1173: ' Compare given string to what is in the clipboard, log failure ! 1174: ' if they match ! 1175: ' ! 1176: ' Parameters: ! 1177: ' s$ - string to compare ! 1178: ' ! 1179: ' Returns: ! 1180: ' nothing ! 1181: ' ! 1182: ' Example: ! 1183: ' XClipBoardNotCmp "07734" ! 1184: ' ! 1185: ' ! 1186: SUB XClipBoardNotCmp (s$) STATIC ! 1187: ! 1188: IF s$ = CLIPBOARD$ THEN ! 1189: XLogFailure "String does match clipboard" ! 1190: END IF ! 1191: END SUB ! 1192: ! 1193: ' ! 1194: ' BClipBoardCmp(s$) ! 1195: ' ! 1196: ' Description: ! 1197: ' Compare given string to what is in the clipboard, log failure ! 1198: ' if they don't match ! 1199: ' ! 1200: ' Parameters: ! 1201: ' s$ - string to compare ! 1202: ' ! 1203: ' Returns: ! 1204: ' TRUE if matches, FALSE if doesn't ! 1205: ' ! 1206: ' Example: ! 1207: ' flag% = BClipBoardCmp "07734" ! 1208: ' ! 1209: ' ! 1210: FUNCTION BClipBoardCmp (s$) STATIC ! 1211: ! 1212: BClipBoardCmp = s$ = CLIPBOARD$ ! 1213: END FUNCTION ! 1214:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.