Add function RUN-TESTS-IN-HOST to run tests in the host implementation

[jscl.git] / jscl.lisp

diff --git a/jscl.lisp b/jscl.lisp
index ef84f41..3a70e2e 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -80,3 +80,12 @@
                            (directory "tests/*.lisp")
                            (directory "tests-report.lisp"))) 
       (ls-compile-file input out))))
+
+
+;;; Run the tests in the host Lisp implementation. It is a quick way
+;;; to improve the level of trust of the tests.
+(defun run-tests-in-host ()
+  (dolist (input (append (directory "tests.lisp")
+                         (directory "tests/*.lisp")
+                         (directory "tests-report.lisp")))
+    (load input)))