14 lines
212 B
Scheme
14 lines
212 B
Scheme
(use-modules (srfi srfi-64)
|
|
(hello))
|
|
|
|
(test-begin "harness")
|
|
|
|
(test-equal "test-hello"
|
|
"Hello world!\n"
|
|
(hi))
|
|
|
|
(test-equal "test-named-hello"
|
|
"Hello bob!\n"
|
|
(hi "bob"))
|
|
|
|
(test-end "harness")
|