Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed example program

Browse source
This commit is contained in:
Justin Ethier 2016-05-24 23:34:59 -04:00
parent 58bc782022
commit c52225f9a9
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
test-opt2.scm
View file

@ -7,6 +7,7 @@
(scheme eval) (scheme eval)
) )
(define *num-passed* 0)
(define (assert:equal msg actual expected) (define (assert:equal msg actual expected)
(if (not (equal? actual expected)) (if (not (equal? actual expected))
(error "Unit test failed [" msg "] actual [" actual "] expected [" expected "]") (error "Unit test failed [" msg "] actual [" actual "] expected [" expected "]")