12 lines
160 B
Scheme
12 lines
160 B
Scheme
|
|
(test-runner-current (ctrf-runner))
|
|
|
|
(test-begin "ctrf")
|
|
|
|
(test-assert #t)
|
|
(test-assert #t)
|
|
(test-equal '(1 2 3) '(1 2 3))
|
|
(test-assert #t)
|
|
|
|
(test-end "ctrf")
|