18 lines
347 B
Scheme
18 lines
347 B
Scheme
|
;;
|
||
|
|
;; Run all the tests we have in the same interpreter context,
|
||
|
|
;; many times.
|
||
|
|
;;
|
||
|
|
|
||
|
|
(let test-loop ((i 0))
|
||
|
|
(if (= i 500)
|
||
|
|
'ok
|
||
|
|
(begin
|
||
|
|
(map
|
||
|
|
(lambda (test)
|
||
|
|
(load (string-append test ".scm"))
|
||
|
|
(display "#complete: ")
|
||
|
|
(display test)
|
||
|
|
(newline))
|
||
|
|
'("ack" "cf" "pi" "series" "sieve" "r4rstest"))
|
||
|
|
(test-loop (+ i 1)))))
|