mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
4e5cdedc03
By convention, a library meant for testing exports "run-tests". Also by convention, assume the test for (foo bar) is (foo bar-test), keeping the test in the same directory and avoiding confusion since (chibi test) is not a test for (chibi). - Avoids the hack of "load"ing test, with resulting namespace complications. - Allows keeping tests together with the libraries. - Allows setting up test hooks before running. - Allows implicit inference of test locations when using above conventions.
15 lines
408 B
Scheme
15 lines
408 B
Scheme
(define-library (srfi 26 test)
|
|
(export run-tests)
|
|
(import (chibi) (srfi 26) (chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "srfi-26: cut")
|
|
(let ((x 'orig))
|
|
(let ((f (cute list x)))
|
|
(set! x 'wrong)
|
|
(test '(orig) (f))))
|
|
(let ((x 'wrong))
|
|
(let ((f (cut list x)))
|
|
(set! x 'right)
|
|
(test '(right) (f))))
|
|
(test-end))))
|