Tests must now return an explicit #t value to pass, anything else is considered a...

diff --git a/tests/test.scm b/tests/test.scm
index ef7103d0c85b81d153c6f8102aae6177b75b3c91..002621f64a5d6202211f7afe3bcc6172ec9f37d9 100644 (file)
--- a/tests/test.scm
+++ b/tests/test.scm
@@ -19,7 +19,7 @@
       (let* ((test (car tests))
              (desc (car test))
              (fn   (cdr test)))
-        (if (not (fn))
+        (if (not (equal? #t (fn)))
           (begin
             (print "FAIL: " desc)
             (loop pass (+ fail 1) (cdr tests)))

diff --git a/tests/test_buf.scm b/tests/test_buf.scm
index 86e5930c36e0804cf49a591ac46a37bf29367b66..1e1810443d5b32b1892645e99907bad1947f50f2 100644 (file)
--- a/tests/test_buf.scm
+++ b/tests/test_buf.scm
@@ -243,4 +243,3 @@
            (= 3 (buf-pos buffer))
            (= 4 (vector-length (buf-data buffer)))))))
 
-