Loading test/test-run-program-unix-internal.script +94 −97 Original line number Diff line number Diff line Loading @@ -75,12 +75,11 @@ (setf *suites* (reverse (mapcar #'reverse *suites*))) (setf *suites-reversed* nil) (dolist (suite *suites*) (progn (format t "~a~%" (first suite)) (dolist (test (cdr suite)) (funcall test) (dolist (file (list *input-file* *output-file* *error-output-file*)) (delete-file-if-exists file))))))) (delete-file-if-exists file)))))) ;; Defines a test that is automatically numbered. Within its body, the Loading Loading @@ -268,22 +267,20 @@ (define-test ":input <file> :output <file> (files e.)" (progn (let ((in-string (format nil "A line.~%And another.~%"))) (create-file-from-string *input-file* in-string) (create-file-from-string *output-file* "") (%run-program "cat" :wait t :input *input-file* :output *output-file*) (check-output in-string)))) (check-output in-string))) (define-test ":input <file> :output <file> (files e./m.)" (progn (let ((in-string (format nil "A line.~%And another.~%"))) (create-file-from-string *input-file* in-string) (delete-file-if-exists *output-file*) (%run-program "cat" :wait t :input *input-file* :output *output-file*) (check-output in-string)))) (check-output in-string))) (define-test ":input <file> :output <file> (files e.), :i-o-e :append" Loading Loading
test/test-run-program-unix-internal.script +94 −97 Original line number Diff line number Diff line Loading @@ -75,12 +75,11 @@ (setf *suites* (reverse (mapcar #'reverse *suites*))) (setf *suites-reversed* nil) (dolist (suite *suites*) (progn (format t "~a~%" (first suite)) (dolist (test (cdr suite)) (funcall test) (dolist (file (list *input-file* *output-file* *error-output-file*)) (delete-file-if-exists file))))))) (delete-file-if-exists file)))))) ;; Defines a test that is automatically numbered. Within its body, the Loading Loading @@ -268,22 +267,20 @@ (define-test ":input <file> :output <file> (files e.)" (progn (let ((in-string (format nil "A line.~%And another.~%"))) (create-file-from-string *input-file* in-string) (create-file-from-string *output-file* "") (%run-program "cat" :wait t :input *input-file* :output *output-file*) (check-output in-string)))) (check-output in-string))) (define-test ":input <file> :output <file> (files e./m.)" (progn (let ((in-string (format nil "A line.~%And another.~%"))) (create-file-from-string *input-file* in-string) (delete-file-if-exists *output-file*) (%run-program "cat" :wait t :input *input-file* :output *output-file*) (check-output in-string)))) (check-output in-string))) (define-test ":input <file> :output <file> (files e.), :i-o-e :append" Loading