artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Resurrect running mes tests tests/*.test with Guile.

Browse source 
* 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.
This commit is contained in:
Jan Nieuwenhuizen 2017-11-21 19:13:14 +01:00
parent 7fb74feb46
commit 1762efc4b9
25 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
make.scm
View file

@ -454,6 +454,10 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
;;"tests/peg.test" ;;"tests/peg.test"
)) ))
(define (add-guile-test o)
(add-target (target (file-name o)))
(add-target (check o)))
(define (add-mes.gcc-test o) (define (add-mes.gcc-test o)
(add-target (target (file-name o))) (add-target (target (file-name o)))
(add-target (check o #:dependencies (list (get-target "src/mes.mlibc-gcc"))))) (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 (target (file-name o)))
(add-target (check o #:dependencies (list (get-target "src/mes.guile"))))) (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... ;; takes long, and should always pass if...
;;(for-each add-mes.gcc-test mes-tests) ;;(for-each add-mes.gcc-test mes-tests)

4
tests/base.test-guile Executable file
View file

@ -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

1
tests/catch.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/closure.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/cwv.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/display.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/fluids.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/guile.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/let-syntax.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/let.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/match.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/math.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/module.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/optargs.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/peg.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/pmatch.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/psyntax.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/quasiquote.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/read.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/record.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/scm.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/srfi-1.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/srfi-13.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/srfi-14.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile

1
tests/vector.test-guile Symbolic link
View file

@ -0,0 +1 @@
base.test-guile