Merge pull request #299 from omasanori/extend-test

Extend test

contrib/30.test/test.scm

@@ -36,19 +36,20 @@
   (define-syntax test
     (syntax-rules ()
       ((test expected expr)
+       (test expected expr equal?))
+      ((test expected expr =)
        (let ((res expr))
          (display "case ")
          (write counter)
-         (cond
-          ((equal? res expected)
+         (if (= res expected)
+           (begin
              (display " PASS: ")
              (write 'expr)
              (display " equals ")
              (write expected)
              (display "")
-           (newline)
-           )
-          ((not (equal? res expected))
+             (newline))
+           (begin
              (set! failure-counter (+ failure-counter 1))
              (let ((out (open-output-string)))
                (display " FAIL: " out)