mes: Resurrect running mes tests tests/*.test with Guile.
[mes.git] / make.scm
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)