make tests standalone executable.

* tests/closure.test: Add shebang and boot-0 include.
* tests/let-syntax.test: Likewise.
* tests/let.test: Likewise.
* tests/match.test: Likewise.
* tests/quasiquote.test: Likewise.
* tests/record.test: Likewise.
* tests/scm.test: Likewise.
* GNUmakefile (mes-check): Run tests by exec'ing.

diff --git a/GNUmakefile b/GNUmakefile
index 7cf9837dcb449d2c56eda018a45e5ffdaa7c94d1..6493410859cfc8ee9d0d555fc1de1665bd9251d3 100644 (file)
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -69,13 +69,11 @@ MES-0:=guile/mes-0.scm
 MES:=./mes
 
 mes-check: all
-       for i in $(TESTS); do\
-               cat $(BASE-0) $$(scripts/include.mes $$i) $$i | $(MES);\
-       done
+       for i in $(TESTS); do ./$$i; done
 
 guile-check:
        for i in $(TESTS); do\
-               guile -s <(cat $(MES-0) $$(scripts/include.mes $$i | grep -Ev 'let.mes|quasiquote.mes|srfi-0') $$i);\
+               guile -s <(cat $(MES-0) $$(scripts/include.mes $$i | grep -Ev 'let.mes|quasiquote.mes|base-0|srfi-0') $$i);\
        done
        for i in $(TESTS); do\
                guile -s <(cat $(MES-0) module/mes/test.mes $$i);\

diff --git a/tests/base.test b/tests/base.test
old mode 100644 (file)
new mode 100755 (executable)
index 13a4716..b6abe22
--- a/tests/base.test
+++ b/tests/base.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes test))
 

diff --git a/tests/closure.test b/tests/closure.test
old mode 100644 (file)
new mode 100755 (executable)
index 096de29..1c5d76e
--- a/tests/closure.test
+++ b/tests/closure.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes test))
 

diff --git a/tests/let-syntax.test b/tests/let-syntax.test
old mode 100644 (file)
new mode 100755 (executable)
index 4fd0c97..95eec9b
--- a/tests/let-syntax.test
+++ b/tests/let-syntax.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))

diff --git a/tests/let.test b/tests/let.test
old mode 100644 (file)
new mode 100755 (executable)
index 7c9e987..7f3f6b2
--- a/tests/let.test
+++ b/tests/let.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))

diff --git a/tests/match.test b/tests/match.test
old mode 100644 (file)
new mode 100755 (executable)
index 028c9f0..7b12a5c
--- a/tests/match.test
+++ b/tests/match.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))

diff --git a/tests/quasiquote.test b/tests/quasiquote.test
old mode 100644 (file)
new mode 100755 (executable)
index 72db376..756452b
--- a/tests/quasiquote.test
+++ b/tests/quasiquote.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes test))

diff --git a/tests/record.test b/tests/record.test
old mode 100644 (file)
new mode 100755 (executable)
index 7b088c1..060aab5
--- a/tests/record.test
+++ b/tests/record.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))
@@ -27,6 +35,7 @@
 (mes-use-module (mes record-0))
 (mes-use-module (mes record))
 (mes-use-module (srfi srfi-9))
+
 (mes-use-module (mes test))
 
 (when guile?

diff --git a/tests/scm.test b/tests/scm.test
old mode 100644 (file)
new mode 100755 (executable)
index bd5abf5..7951572
--- a/tests/scm.test
+++ b/tests/scm.test
@@ -1,3 +1,10 @@
+#! /bin/sh
+# -*-scheme-*-
+echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+#paredit:||
+exit $?
+!#
+
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
@@ -18,6 +25,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
+(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))
@@ -26,9 +34,7 @@
 (mes-use-module (mes test))
 
 (when guile?
-  (module-define! (current-module) 'builtin? (lambda (. x) #t))
-  (use-modules (srfi srfi-1))
-  )
+  (use-modules (srfi srfi-1)))
 
 (pass-if "first dummy" #t)
 (pass-if-not "second dummy" #f)