mes: Resurrect running mes tests tests/*.test with Guile.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 21 Nov 2017 18:13:14 +0000 (19:13 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 21 Nov 2017 18:13:14 +0000 (19:13 +0100)
* tests/tests/base.test-guile: New file to resurrect running Mes test with Guile.
* tests/catch.test-guile: Symlink for same purpose.
* tests/closure.test-guile: Likewise.
* tests/cwv.test-guile: Likewise.
* tests/display.test-guile: Likewise.
* tests/fluids.test-guile: Likewise.
* tests/guile.test-guile: Likewise.
* tests/let-syntax.test-guile: Likewise.
* tests/let.test-guile: Likewise.
* tests/match.test-guile: Likewise.
* tests/math.test-guile: Likewise.
* tests/module.test-guile: Likewise.
* tests/optargs.test-guile: Likewise.
* tests/peg.test-guile: Likewise.
* tests/pmatch.test-guile: Likewise.
* tests/psyntax.test-guile: Likewise.
* tests/quasiquote.test-guile: Likewise.
* tests/read.test-guile: Likewise.
* tests/record.test-guile: Likewise.
* tests/scm.test-guile: Likewise.
* tests/srfi-1.test-guile: Likewise.
* tests/srfi-13.test-guile: Likewise.
* tests/srfi-14.test-guile: Likewise.
* tests/vector.test-guile: Likewise.
* make.scm (add-guile-test): New function.  Use it to run running tests/*.test-guile.

25 files changed:
make.scm
tests/base.test-guile [new file with mode: 0755]
tests/catch.test-guile [new symlink]
tests/closure.test-guile [new symlink]
tests/cwv.test-guile [new symlink]
tests/display.test-guile [new symlink]
tests/fluids.test-guile [new symlink]
tests/guile.test-guile [new symlink]
tests/let-syntax.test-guile [new symlink]
tests/let.test-guile [new symlink]
tests/match.test-guile [new symlink]
tests/math.test-guile [new symlink]
tests/module.test-guile [new symlink]
tests/optargs.test-guile [new symlink]
tests/peg.test-guile [new symlink]
tests/pmatch.test-guile [new symlink]
tests/psyntax.test-guile [new symlink]
tests/quasiquote.test-guile [new symlink]
tests/read.test-guile [new symlink]
tests/record.test-guile [new symlink]
tests/scm.test-guile [new symlink]
tests/srfi-1.test-guile [new symlink]
tests/srfi-13.test-guile [new symlink]
tests/srfi-14.test-guile [new symlink]
tests/vector.test-guile [new symlink]

index 297f8076994ec462d93481a957a48b48f48f285f..562270b2e13336b77914c022d2bfa96b328c1a2a 100755 (executable)
--- a/make.scm
+++ b/make.scm
@@ -454,6 +454,10 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
     ;;"tests/peg.test"
     ))
 
+(define (add-guile-test o)
+  (add-target (target (file-name o)))
+  (add-target (check o)))
+
 (define (add-mes.gcc-test o)
   (add-target (target (file-name o)))
   (add-target (check o #:dependencies (list (get-target "src/mes.mlibc-gcc")))))
@@ -462,6 +466,8 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
   (add-target (target (file-name o)))
   (add-target (check o #:dependencies (list (get-target "src/mes.guile")))))
 
+(for-each add-guile-test (map (cut string-append <> "-guile") mes-tests))
+
 ;; takes long, and should always pass if...
 ;;(for-each add-mes.gcc-test mes-tests)
 
diff --git a/tests/base.test-guile b/tests/base.test-guile
new file mode 100755 (executable)
index 0000000..4b5bb6a
--- /dev/null
@@ -0,0 +1,4 @@
+#! /bin/sh
+test=$(dirname $0)/$(basename $0 -guile)
+GUILE=${GUILE-guile}
+cat guile/mes-0.scm module/mes/test.mes $test | exec $GUILE -s /dev/stdin
diff --git a/tests/catch.test-guile b/tests/catch.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/closure.test-guile b/tests/closure.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/cwv.test-guile b/tests/cwv.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/display.test-guile b/tests/display.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/fluids.test-guile b/tests/fluids.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/guile.test-guile b/tests/guile.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/let-syntax.test-guile b/tests/let-syntax.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/let.test-guile b/tests/let.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/match.test-guile b/tests/match.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/math.test-guile b/tests/math.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/module.test-guile b/tests/module.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/optargs.test-guile b/tests/optargs.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/peg.test-guile b/tests/peg.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/pmatch.test-guile b/tests/pmatch.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/psyntax.test-guile b/tests/psyntax.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/quasiquote.test-guile b/tests/quasiquote.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/read.test-guile b/tests/read.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/record.test-guile b/tests/record.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/scm.test-guile b/tests/scm.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/srfi-1.test-guile b/tests/srfi-1.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/srfi-13.test-guile b/tests/srfi-13.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/srfi-14.test-guile b/tests/srfi-14.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file
diff --git a/tests/vector.test-guile b/tests/vector.test-guile
new file mode 120000 (symlink)
index 0000000..5631f4a
--- /dev/null
@@ -0,0 +1 @@
+base.test-guile
\ No newline at end of file