18 lines
435 B
Scheme
18 lines
435 B
Scheme
|
(load "vx-scheme.init")
|
||
|
|
(defmacro (slib-test module expression expected-result)
|
||
|
|
`(begin
|
||
|
|
(require ,module)
|
||
|
|
(display (if (equal? ,expression ,expected-result)
|
||
|
|
"PASS"
|
||
|
|
"FAIL"))
|
||
|
|
(display ": ") (display ,module)
|
||
|
|
(newline)))
|
||
|
|
|
||
|
|
(slib-test 'sort (sorted? (sort '(6 5 7 4 8 3 9 1) <) <) #t)
|
||
|
|
(slib-test 'factor (factor 105) '(7 3 5))
|
||
|
|
(slib-test 'object->string (object->string '(2 3)) "(2 3)")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|