diff options
Diffstat (limited to 'tests/run-tests.scm')
-rwxr-xr-x | tests/run-tests.scm | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm new file mode 100755 index 00000000..e68f058b --- /dev/null +++ b/tests/run-tests.scm @@ -0,0 +1,37 @@ +#!/usr/bin/guile \ +-s +!# + +(eval-when (compile load) + (define here (dirname (current-filename)))) + +(add-to-load-path (format #f "~a/module" + (dirname here))) + + +(use-modules (ice-9 ftw) + (ice-9 sandbox)) + +(define files + (scandir here + (lambda (name) + (and (< 2 (string-length name)) + (not (string=? name (basename (current-filename)))) + (string=? "scm" (string-take-right name 3)))))) + +(setenv "TESTPATH" + (format #f "~a/testdata" (dirname here))) + +(use-modules (srfi srfi-64)) + +;; Load tests + +(add-to-load-path here) +(for-each load-from-path files) + +;; Final test, triggers output +(test-begin "metatest") +(test-assert #t) +(test-expect-fail 1) +(test-assert #f) +(test-end "metatest") |