make tests standalone executable.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 16 Oct 2016 15:34:51 +0000 (17:34 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 22:36:12 +0000 (00:36 +0200)
* 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.

GNUmakefile
tests/base.test [changed mode: 0644->0755]
tests/closure.test [changed mode: 0644->0755]
tests/let-syntax.test [changed mode: 0644->0755]
tests/let.test [changed mode: 0644->0755]
tests/match.test [changed mode: 0644->0755]
tests/quasiquote.test [changed mode: 0644->0755]
tests/record.test [changed mode: 0644->0755]
tests/scm.test [changed mode: 0644->0755]

index 7cf9837dcb449d2c56eda018a45e5ffdaa7c94d1..6493410859cfc8ee9d0d555fc1de1665bd9251d3 100644 (file)
@@ -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);\
old mode 100644 (file)
new mode 100755 (executable)
index 13a4716..b6abe22
@@ -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))
 
old mode 100644 (file)
new mode 100755 (executable)
index 096de29..1c5d76e
@@ -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))
 
old mode 100644 (file)
new mode 100755 (executable)
index 4fd0c97..95eec9b
@@ -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))
old mode 100644 (file)
new mode 100755 (executable)
index 7c9e987..7f3f6b2
@@ -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))
old mode 100644 (file)
new mode 100755 (executable)
index 028c9f0..7b12a5c
@@ -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))
old mode 100644 (file)
new mode 100755 (executable)
index 72db376..756452b
@@ -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))
old mode 100644 (file)
new mode 100755 (executable)
index 7b088c1..060aab5
@@ -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?
old mode 100644 (file)
new mode 100755 (executable)
index bd5abf5..7951572
@@ -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)