From d593665b749fabec992bdc75346666d35d7767a7 Mon Sep 17 00:00:00 2001
From: "Mike D. Lowis" <mike@mdlowis.com>
Date: Mon, 9 Jul 2012 09:36:15 -0400
Subject: [PATCH] Tests must now return an explicit #t value to pass, anything
 else is considered a fail

---
 tests/test.scm     | 2 +-
 tests/test_buf.scm | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

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)))))))
 
-
-- 
2.52.0