commit
643d86c709
|
@ -36,19 +36,20 @@
|
||||||
(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)
|
||||||
(cond
|
(if (= res expected)
|
||||||
((equal? res expected)
|
(begin
|
||||||
(display "[0;32m PASS: ")
|
(display "[0;32m PASS: ")
|
||||||
(write 'expr)
|
(write 'expr)
|
||||||
(display " equals ")
|
(display " equals ")
|
||||||
(write expected)
|
(write expected)
|
||||||
(display "[0;39m")
|
(display "[0;39m")
|
||||||
(newline)
|
(newline))
|
||||||
)
|
(begin
|
||||||
((not (equal? res expected))
|
|
||||||
(set! failure-counter (+ failure-counter 1))
|
(set! failure-counter (+ failure-counter 1))
|
||||||
(let ((out (open-output-string)))
|
(let ((out (open-output-string)))
|
||||||
(display " [0;31mFAIL: " out)
|
(display " [0;31mFAIL: " out)
|
||||||
|
|
Loading…
Reference in New Issue