r11859: Canonicalize whitespace

[rt.git] / rt-test.lisp

diff --git a/rt-test.lisp b/rt-test.lisp
index c045aa192fa53b8b23702a0264ab24a1d14b7761..196009c19afa557246cc993af6f58819f901e566 100644 (file)
--- a/rt-test.lisp
+++ b/rt-test.lisp
@@ -34,20 +34,20 @@
 
 (defun do-setup (form)
   (let ((*test* nil)
-       (*do-tests-when-defined* nil)
-       (rt::*entries* (list nil))
-       (rt::*in-test* nil)
-       (rt::*debug* t)
-       result)
+        (*do-tests-when-defined* nil)
+        (rt::*entries* (list nil))
+        (rt::*in-test* nil)
+        (rt::*debug* t)
+        result)
     (deftest t1 4 4)
     (deftest (t 2) 4 3)
     (values-list
       (cons (normalize
-             (with-output-to-string (*standard-output*)
-               (setq result
-                     (multiple-value-list
-                       (catch 'rt::*debug* (eval form))))))
-           result))))
+              (with-output-to-string (*standard-output*)
+                (setq result
+                      (multiple-value-list
+                        (catch 'rt::*debug* (eval form))))))
+            result))))
 
 (defun normalize (string)
   (with-input-from-string (s string)
@@ -57,10 +57,10 @@
 
 (defun get-file-name ()
   (loop (if *file-name* (return *file-name*))
-       (format *error-output*
-               "~%Type a string representing naming of a scratch disk file: ")
-       (setq *file-name* (read))
-       (if (not (stringp *file-name*)) (setq *file-name* nil))))
+        (format *error-output*
+                "~%Type a string representing naming of a scratch disk file: ")
+        (setq *file-name* (read))
+        (if (not (stringp *file-name*)) (setq *file-name* nil))))
 
 (get-file-name)
 
@@ -71,15 +71,15 @@
 
 (defun get-file-output (f)
   (prog1 (with-open-file (in f)
-          (normalize-stream in))
-        (delete-file f)))
+           (normalize-stream in))
+         (delete-file f)))
 
 (defun normalize-stream (s)
   (let ((l nil))
     (loop (push (read-line s nil s) l)
-         (when (eq (car l) s)
-           (setq l (nreverse (cdr l)))
-           (return nil)))
+          (when (eq (car l) s)
+            (setq l (nreverse (cdr l)))
+            (return nil)))
     (delete "" l :test #'equal)))
 
 (rem-all-tests)
@@ -126,7 +126,7 @@
 (deftest get-test-4
   (setup (deftest t3 1 1) (get-test))
   () (t3 1 1))
-(deftest get-test-5 
+(deftest get-test-5
   (setup (get-test 't0))
   ("No test with name T0.") nil)
 
@@ -137,7 +137,7 @@
   (setup (values (rem-test '(t 2)) (pending-tests)))
   () (t 2) (t1))
 (deftest rem-test-3
-  (setup (let ((*test* '(t 2))) (rem-test)) (pending-tests)) 
+  (setup (let ((*test* '(t 2))) (rem-test)) (pending-tests))
   () (t1))
 (deftest rem-test-4
   (setup (values (rem-test 't0) (pending-tests)))
@@ -151,11 +151,11 @@
   () nil nil)
 (deftest rem-all-tests-2
   (setup (rem-all-tests) (rem-all-tests) (pending-tests))
-  () nil) 
+  () nil)
 
 (deftest do-tests-1
   (setup (let ((*print-case* :downcase))
-          (values (do-tests) (continue-testing) (do-tests))))
+           (values (do-tests) (continue-testing) (do-tests))))
   ("Doing 2 pending tests of 2 tests total."
    " T1"
    "Test (T 2) failed"
@@ -182,8 +182,8 @@
 
 (deftest do-tests-2
   (setup (rem-test '(t 2))
-        (deftest (t 2) 3 3)
-        (values (do-tests) (continue-testing) (do-tests)))
+         (deftest (t 2) 3 3)
+         (values (do-tests) (continue-testing) (do-tests)))
   ("Doing 2 pending tests of 2 tests total."
    " T1 (T 2)"
    "No tests failed."