diff options
Diffstat (limited to '05/test.scm')
| -rw-r--r-- | 05/test.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/05/test.scm b/05/test.scm index 36e52ed..b2eafab 100644 --- a/05/test.scm +++ b/05/test.scm @@ -6,7 +6,7 @@ ; My quick-and-dirty unit testing framework (copied for each day) (define (run-test name proc input expected) (let ((result (proc input))) - (if (= result expected) + (if (equal? result expected) (printf "\x1b;[32;1mPASS\x1b;[0m: ~a\n" name) (printf "\x1b;[31;1mFAIL\x1b;[0m: ~a: got ~a, expected ~a\n" |