Update tests.

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")