Fix syntax test harness to work with compiled tests.

This commit is contained in:
Vincent St-Amour 2011-07-05 16:28:25 -04:00
parent 669523477a
commit 867f1e9097

View File

@ -10,9 +10,11 @@
(define tests
(make-test-suite
"syntax tests"
(for/list ([t (in-directory tests-dir)])
(for/list ([t (directory-list tests-dir)]
#:when (regexp-match ".*rkt$" t))
(test-suite
(path->string t)
(check-not-exn (lambda () (dynamic-require t #f)))))))
(check-not-exn (lambda ()
(dynamic-require (build-path tests-dir t) #f)))))))
(run-tests tests)