From: Mike D. Lowis <mike@mdlowis.com>
Date: Mon, 9 Jul 2012 13:36:15 +0000 (-0400)
Subject: Tests must now return an explicit #t value to pass, anything else is considered a... 
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=d593665b749fabec992bdc75346666d35d7767a7;p=archive%2Fdlang-scm.git

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

diff --git a/tests/test.scm b/tests/test.scm
index ef7103d..002621f 100644
--- 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 86e5930..1e18104 100644
--- a/tests/test_buf.scm
+++ b/tests/test_buf.scm
@@ -243,4 +243,3 @@
            (= 3 (buf-pos buffer))
            (= 4 (vector-length (buf-data buffer)))))))
 
-