conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add an optional comparator argument to test. 

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-07-21 15:16:04 +09:00
parent 1455c7d4a5
commit f345832b44
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/30.test/test.scm
View File

@ -36,10 +36,12 @@
(define-syntax test (define-syntax test
(syntax-rules () (syntax-rules ()
((test expected expr) ((test expected expr)
(test expected expr equal?))
((test expected expr =)
(let ((res expr)) (let ((res expr))
(display "case ") (display "case ")
(write counter) (write counter)
(if (equal? res expected) (if (= res expected)
(begin (begin
(display " PASS: ") (display " PASS: ")
(write 'expr) (write 'expr)