1
(load "./test/unittest.scm")
3
;*---------------------------------------------------------------------*/
5
;*---------------------------------------------------------------------*/
6
(define (test name val expected-val)
7
(assert-equal? name expected-val val))