Add an optional comparator argument to test.

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
2015-07-21 15:16:04 +09:00 · 2015-07-21 15:16:04 +09:00 · f345832b44
parent 1455c7d4a5
commit f345832b44
1 changed files with 3 additions and 1 deletions
--- a/contrib/30.test/test.scm
+++ b/contrib/30.test/test.scm
@ -36,10 +36,12 @@
  (define-syntax test
    (syntax-rules ()
      ((test expected expr)
+       (test expected expr equal?))
+      ((test expected expr =)
       (let ((res expr))
         (display "case ")
         (write counter)
-         (if (equal? res expected)
+         (if (= res expected)
           (begin
             (display "[0;32m PASS: ")
             (write 'expr)