From c286ee7d410950152177d209c20a843d4a3f8c26 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 3 Apr 2019 22:21:20 +0200 Subject: Update tests. --- tests/run-tests.scm | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100755 tests/run-tests.scm (limited to 'tests/run-tests.scm') 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") -- cgit v1.2.3