(DEFINE-FILE-INFO READTABLE "xcl" PACKAGE (DEFPACKAGE "XCL-TEST" (USE "LISP"))) (IL:FILECREATED "28-Oct-86 16:39:49" ("compiled on " IL:{ERIS}LIBRARY>DO-TEST.\;40) "21-Oct-86 04:13:01" "COMPILE-FILEd" IL:|in| "Xerox Lisp 21-Oct-86 ..." IL:|dated| "21-Oct-86 04:48:43") (IL:FILECREATED "28-Oct-86 16:36:44" IL:{ERIS}LIBRARY>DO-TEST.\;40 13216 IL:|changes| IL:|to:| (IL:FUNCTIONS DO-TEST-LIST DO-TEST DO-TEST-GROUP TEST-DEFMACRO TEST-DEFUN TEST-SETQ WITHOUT-BATCH-MODE-ERRORS EXPECT-ERRORS DO-ALL-TESTS CURRENT-FILE-NAME CL-READFILE DO-TEST-FILE) ( IL:VARS IL:DO-TESTCOMS) (IL:PROPS (DO-TEST IL:MAKEFILE-ENVIRONMENT)) (IL:VARIABLES *ANY-ERRORS* *TEST-CLEANUP-FORMS* *TEST-COMPILE* *TEST-MODE* *TEST-BATCH-RESULTS* *TEST-FILE-PATTERN* *TEST-FILE-NAME*) IL:|previous| IL:|date:| "27-Oct-86 14:32:14" IL:{ERIS}LIBRARY>DO-TEST.\;38 ) (IL:RPAQQ IL:DO-TESTCOMS ((IL:FUNCTIONS DO-TEST DO-TEST-GROUP TEST-DEFMACRO TEST-DEFUN TEST-SETQ WITHOUT-BATCH-MODE-ERRORS EXPECT-ERRORS DO-ALL-TESTS CURRENT-FILE-NAME CL-READFILE DO-TEST-FILE DO-TEST-LIST) (IL:VARIABLES *ANY-ERRORS* *TEST-CLEANUP-FORMS* *TEST-COMPILE* *TEST-MODE* *TEST-BATCH-RESULTS* *TEST-FILE-PATTERN* *TEST-FILE-NAME*) (IL:P (IL:DEFPACKAGE "XCL-TEST" (:EXPORT DO-TEST DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* *TEST-BATCH-RESULTS* *TEST-COMPILE* *TEST-FILE-PATTERN*))) (IL:PROP ( IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) DO-TEST))) IL:|expand-DO-TEST| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 4 *TEST-MODE* IL:F 5 *ERROR-OUTPUT*) W@1HHIdTgUoK ggggJhggogKhooh(31 FORMAT) (62 QUOTE 55 *ERROR-OUTPUT* 52 FORMAT 44 WITHOUT-BATCH-MODE-ERRORS 41 NULL 38 WHEN 35 NOT 20 :INTERACTIVE) ( 78 ((IL:SETQ *ANY-ERRORS* T)) 70 ((CURRENT-FILE-NAME)) 59 "Test \"~A\" failed in file \"~A\"~%" 27 "Testing... ~S~%") (IL:SETF-MACRO-FUNCTION (QUOTE DO-TEST) (QUOTE IL:|expand-DO-TEST|)) IL:|expand-DO-TEST-GROUP| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 11 *ERROR-OUTPUT* IL:F 12 *TEST-MODE*) > @qHHIdIJl$JgJgLJJh JZgogKWg WoK Lg']?gggMohggogKhoogKhh0 J+d^WoKN _O^O__OLg'_6gggOohggogKhooh o _Og}Nh(295 LAST 280 IL:\\APPEND2 192 FORMAT 187 CURRENT-FILE-NAME 92 FORMAT 56 IL:\\APPEND2) (306 DO-TEST 256 QUOTE 249 *ERROR-OUTPUT* 246 FORMAT 232 WITHOUT-BATCH-MODE-ERRORS 229 NULL 226 WHEN 218 :AFTER 151 RETURN-FROM 132 QUOTE 125 *ERROR-OUTPUT* 122 FORMAT 109 WITHOUT-BATCH-MODE-ERRORS 106 NULL 103 WHEN 96 :BEFORE 79 :INTERACTIVE 73 BLOCK 66 LET 41 :AFTER 34 :BEFORE) ( 288 ((IL:EVAL (CONS (QUOTE PROGN) *TEST-CLEANUP-FORMS*)) NIL) 272 ((IL:SETQ *ANY-ERRORS* T)) 264 ((CURRENT-FILE-NAME)) 253 ":AFTER forms for test \"~A\" in file ~S failed." 238 (T) 183 "Non DO-TEST form in ~S in ~S~%~S~%" 148 (IL:SETQ *ANY-ERRORS* T) 140 ((CURRENT-FILE-NAME)) 129 ":BEFORE forms for test \"~A\" in file ~S failed." 114 (T) 88 "Testing... ~S~%" 70 ((*TEST-CLEANUP-FORMS* NIL))) (IL:SETF-MACRO-FUNCTION (QUOTE DO-TEST-GROUP) (QUOTE IL:|expand-DO-TEST-GROUP|)) IL:|expand-TEST-DEFMACRO| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 3 *TEST-CLEANUP-FORMS*) f@!HHI 9I )ggggIhhhgI hhoI ggIhoScgIJ(69 ERROR 54 SYMBOL-FUNCTION 51 MACRO-FUNCTION 20 MACRO-FUNCTION 14 FBOUNDP) (95 DEFMACRO 77 QUOTE 74 REMPROP 47 QUOTE 34 QUOTE 31 MACRO-FUNCTION 28 SYMBOL-FUNCTION 25 SETF) ( 85 ((QUOTE IL:MACRO-FN)) 65 "Please don't redefine ~A in a test form") (IL:SETF-MACRO-FUNCTION (QUOTE TEST-DEFMACRO) (QUOTE IL:|expand-TEST-DEFMACRO|)) IL:|expand-TEST-DEFUN| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 3 *TEST-CLEANUP-FORMS*) ^@!HHI 4I I oI 1gggIhhgI hhggIhhScgIJ(59 SYMBOL-FUNCTION 34 ERROR 25 SPECIAL-FORM-P 20 MACRO-FUNCTION 14 FBOUNDP) (87 DEFUN 72 QUOTE 69 FMAKUNBOUND 55 QUOTE 45 QUOTE 42 SYMBOL-FUNCTION 39 SETF) ( 30 "Please don't redefine ~A in a test form") (IL:SETF-MACRO-FUNCTION (QUOTE TEST-DEFUN) (QUOTE IL:|expand-TEST-DEFUN|)) IL:|expand-TEST-SETQ| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 5 *TEST-CLEANUP-FORMS*) ^@AHHZJI gIgI hhggIhhUc LggIKhgLhgIKh(32 SYMBOL-VALUE 19 BOUNDP) (85 SETQ 75 TEST-SETQ 66 SETQ 63 PROGN 45 QUOTE 42 MAKUNBOUND 28 QUOTE 24 SETQ) () (IL:SETF-MACRO-FUNCTION (QUOTE TEST-SETQ) (QUOTE IL:|expand-TEST-SETQ|)) |expand-WITHOUT-BATCH-MODE-ERRORS| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM) IL:F 1 *TEST-MODE*) @QggHgHNIL (19 IL:IGNORE-ERRORS 13 PROGN 8 :INTERACTIVE) () (IL:SETF-MACRO-FUNCTION (QUOTE WITHOUT-BATCH-MODE-ERRORS) (QUOTE |expand-WITHOUT-BATCH-MODE-ERRORS|)) IL:|expand-EXPECT-ERRORS| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) &@!HHggJo Ioh(24 IL:\\APPEND2) (16 PROGN 13 IL:CONDITION-CASE) ( 30 ((IL:CONDITION) (VALUES T IL:CONDITION)) 21 (NIL)) (IL:SETF-MACRO-FUNCTION (QUOTE EXPECT-ERRORS) (QUOTE IL:|expand-EXPECT-ERRORS|)) IL:DO-ALL-TESTSA0001A0002 IL:D1 (IL:F 0 *ERROR-OUTPUT* IL:F 1 IL:A9651) PgQ (7 CLOSE) (3 :ABORT) () IL:DO-ALL-TESTSA0001 IL:D1 (IL:NAME IL:ERRORSET IL:F 0 *ERROR-OUTPUT* IL:F 1 IL:RESETVARSLST IL:F 2 IL:SYSOUT-TYPE IL:F 3 IL:MAKESYSDATE IL:F 4 IL:RESETY IL:F 5 IL:PATTERN IL:F 6 IL:A9651) VghhhQcPoS RPoR Po U d Po hc ci(80 VALUES-LIST 73 IL:\\MVLIST 70 FORMAT 57 DO-TEST-FILE 51 IL:DIRECTORY 46 FORMAT 43 IL:DATE 34 IL:FORMAT 22 FORMAT) (2 IL:DO-ALL-TESTSA0001A0002) ( 67 "(END-OF-TESTS)" 40 ";;; Tests run on ~A~2%" 30 ";;; Sysout type is ~A~%" 18 ";;; Test results for sysout of ~A~%") DO-ALL-TESTS IL:D1 (IL:L (0 IL:|-args-|) IL:P 10 IL:RESETY IL:P 9 IL:LISPXHIST IL:P 8 IL:A9651 IL:P 7 *ERROR-OUTPUT* IL:P 6 IL:SYSOUT-TYPE IL:P 3 IL:PATTERN IL:F 12 *TEST-BATCH-RESULTS* IL:F 13 *TEST-FILE-PATTERN* IL:F 14 IL:LISPXHIST IL:F 15 IL:RESETVARSLST) eHkJdIRWHkJdIUW1HkMdLWhWgggg iW! Wog >h>agJkaJlZagJkaJlZagMkaMl]g_ OO(165 IL:ERROR! 159 IL:RESETRESTORE 89 IL:DO-ALL-TESTSA0001 68 OPEN) (154 IL:ERROR 136 :SYSOUT-TYPE 117 :PATTERN 98 :RESULTS 86 IL:INTERNAL 64 :NEW-VERSION 61 :IF-EXISTS 58 :OUTPUT 55 :DIRECTION) ( 83 (IL:DO-ALL-TESTSA0001)) CURRENT-FILE-NAME IL:D1 (IL:F 0 *TEST-FILE-NAME*) PNIL NIL () IL:CL-READFILEA0001A0002 IL:D1 (IL:F 0 IL:TEST-FILE IL:F 1 IL:A9652) PgQ (7 CLOSE) (3 :ABORT) () IL:CL-READFILEA0001A0003A0004 IL:D1 (IL:L (0 IL:C) IL:F 0 IL:CONDITION-CASE9653) @cgh (12 IL:\\DO-THROW 9 IL:\\MVLIST) (5 IL:CONDITION-CASE9655) () IL:CL-READFILEA0001A0003 IL:D1 (IL:P 0 IL:*CONDITION-HANDLER-BINDINGS* IL:F 1 IL:*CONDITION-HANDLER-BINDINGS* IL:F 2 IL:TEST-FILE IL:F 3 IL:TEM) ggQR c (20 IL:\\MVLIST 15 READ) (5 IL:CL-READFILEA0001A0003A0004 2 ERROR) () IL:CL-READFILEA0001 IL:D1 (IL:NAME IL:ERRORSET IL:P 0 IL:CONDITION-CASE9653 IL:F 2 IL:FORMS-LIST IL:F 3 IL:RESETVARSLST IL:F 4 IL:TEM IL:F 5 IL:ENDTOKEN IL:F 6 IL:RESETY IL:F 7 IL:A9652) NghhhSc gg HhI TdlU R hc c iTRc(64 VALUES-LIST 57 IL:\\MVLIST 54 NREVERSE 48 STRING= 34 VALUES-LIST 25 IL:\\CATCH-FUNCALL) (22 IL:CL-READFILEA0001A0003 19 IL:CONDITION-CASE9655 2 IL:CL-READFILEA0001A0002) () CL-READFILE IL:D1 (IL:L (0 IL:|-args-|) IL:P 10 IL:RESETY IL:P 9 IL:LISPXHIST IL:P 8 IL:A9652 IL:P 7 IL:TEST-FILE IL:P 6 IL:TEM IL:P 5 IL:FORMS-LIST IL:P 4 *PACKAGE* IL:P 3 *READTABLE* IL:P 2 IL:ENDTOKEN IL:P 1 IL:TEST-FILE IL:F 12 IL:CMLRDTBL IL:F 13 IL:LISPXHIST IL:F 14 IL:RESETVARSLST IL:F 15 *ERROR-OUTPUT*) s ekalHWlalHolaI =o !I iW! Wog hg_ OOWoI h(111 FORMAT 97 IL:ERROR! 91 IL:RESETRESTORE 80 IL:CL-READFILEA0001 59 IL:OPENTEXTSTREAM 56 IL:MKATOM 49 FIND-PACKAGE 40 PROBE-FILE) (86 IL:ERROR 77 IL:INTERNAL) ( 107 "~%Couldn't find file ~A~%" 74 (IL:CL-READFILEA0001) 46 "XCL-TEST" 31 "STOP") DO-TEST-FILE IL:D1 (IL:L (0 IL:FILENAME) IL:P 4 *ANY-ERRORS* IL:P 3 *TEST-FILE-NAME* IL:P 0 *PACKAGE* IL:F 5 IL:CMLRDTBL IL:F 6 *ERROR-OUTPUT*) :o !@U @ hoJ J J I LV (55 TERPRI 48 DO-TEST-LIST 41 FORMAT 37 PATHNAME-VERSION 33 PATHNAME-TYPE 29 PATHNAME-NAME 19 PATHNAME 14 CL-READFILE 6 FIND-PACKAGE) NIL ( 25 "~A.~A;~A" 3 "user") DO-TEST-LIST IL:D1 (IL:L (2 IL:NAME 1 IL:OPTIONS 0 IL:TEST-FORMS) IL:P 0 IL:DFNFLG IL:F 2 *ERROR-OUTPUT* IL:F 3 *ANY-ERRORS* IL:F 4 *TEST-COMPILE*) W @%Ro icdYRoI hgIgTjhghIh I (83 EVAL 76 XCL::COMPILE 38 FORMAT 34 CURRENT-FILE-NAME 16 FORMAT 13 CURRENT-FILE-NAME) (67 LAMBDA 56 DO-TEST-GROUP 49 DO-TEST) ( 31 "Non DO-TEST form at top level in ~S~%~S~%" 10 "~%(Trouble reading ~A)~%") (PROCLAIM (QUOTE (SPECIAL *ANY-ERRORS*))) (OR (BOUNDP (QUOTE *ANY-ERRORS*)) (IL:SETQ *ANY-ERRORS* NIL)) (PROCLAIM (QUOTE (SPECIAL *TEST-CLEANUP-FORMS*))) (OR (BOUNDP (QUOTE *TEST-CLEANUP-FORMS*)) (IL:SETQ *TEST-CLEANUP-FORMS* NIL)) (PROCLAIM (QUOTE (SPECIAL *TEST-COMPILE*))) (OR (BOUNDP (QUOTE *TEST-COMPILE*)) (IL:SETQ *TEST-COMPILE* NIL)) (PROCLAIM (QUOTE (SPECIAL *TEST-MODE*))) (OR (BOUNDP (QUOTE *TEST-MODE*)) (IL:SETQ *TEST-MODE* :BATCH)) (PROCLAIM (QUOTE (SPECIAL *TEST-BATCH-RESULTS*))) (OR (BOUNDP (QUOTE *TEST-BATCH-RESULTS*)) (IL:SETQ *TEST-BATCH-RESULTS* "{eris}cml>test>test-results")) (PROCLAIM (QUOTE (SPECIAL *TEST-FILE-PATTERN*))) (OR (BOUNDP (QUOTE *TEST-FILE-PATTERN*)) (IL:SETQ *TEST-FILE-PATTERN* "{ERIS}CML>TEST>*.TEST;")) (PROCLAIM (QUOTE (SPECIAL *TEST-FILE-NAME*))) (OR (BOUNDP (QUOTE *TEST-FILE-NAME*)) (IL:SETQ *TEST-FILE-NAME* "unknown")) (IL:DEFPACKAGE "XCL-TEST" (:EXPORT DO-TEST DO-TEST-GROUP EXPECT-ERRORS TEST-DEFUN TEST-DEFMACRO TEST-SETQ DO-ALL-TESTS CL-READFILE DO-TEST-FILE *TEST-MODE* *TEST-BATCH-RESULTS* *TEST-COMPILE* *TEST-FILE-PATTERN*)) (IL:PUTPROPS DO-TEST IL:MAKEFILE-ENVIRONMENT (:READTABLE "xcl" :PACKAGE (IL:DEFPACKAGE "XCL-TEST" ( :USE "LISP")))) (IL:PUTPROPS DO-TEST IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS DO-TEST IL:COPYRIGHT ("Xerox Corporation" 1986)) NIL