X-Git-Url: http://git.kpe.io/?p=rt.git;a=blobdiff_plain;f=rt-test.lisp;h=196009c19afa557246cc993af6f58819f901e566;hp=c045aa192fa53b8b23702a0264ab24a1d14b7761;hb=2a18cdd52aa3da52e1010aae854d1866f92c483a;hpb=bd0b5d4dc2a326acdc63ed3b4dd19a37b4539aa9

diff --git a/rt-test.lisp b/rt-test.lisp
index c045aa1..196009c 100644
--- 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."