Network test fixes.

2007-10-26 10:51:03 +00:00
parent e0f1193963
commit 9368c5f16e
5 changed files with 32 additions and 15 deletions
@@ -68,14 +68,14 @@
    (catch 'badex
        (lambda ()
          ((cdr data)) ; call test
-          (display "PASSED\n"))
+          (display "PASSED\n\n"))
      (lambda (key)
-        (display "FAILED\n")))))
+        (display "FAILED\n\n")))))

 (define test-run-all
  (lambda (test-list)
    (display "\nTest Run: All Tests\n")
-    (map test-run-single test-list)
+    (map-in-order test-run-single test-list)
    (display "\nDone.\n")))

 #!