Commit 5f0c1537 authored by Elias Pipping's avatar Elias Pipping
Browse files

Cleanup: Whitespace, unnecessary progn

parent e77862e7
Loading
Loading
Loading
Loading
+94 −97
Original line number Diff line number Diff line
@@ -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
@@ -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"