~ chicken-core (chicken-5) 317468e4994e6245d787400359726a9fb97d5d60
commit 317468e4994e6245d787400359726a9fb97d5d60 Author: Peter Bex <peter@more-magic.net> AuthorDate: Sat Feb 29 14:40:50 2020 +0100 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sat Feb 29 14:41:10 2020 +0100 Fix runtests batch script to match shell script for meta-syntax tests Strangely, this never caused issues before, but the interpreter command which ran the final meta-syntax-tests did not actually have the file meta-syntax-tests.scm in the command, like it did in the shell script. This caused the test to fail with "module not found: baz" diff --git a/tests/runtests.bat b/tests/runtests.bat index eea0ffb6..29f2e821 100644 --- a/tests/runtests.bat +++ b/tests/runtests.bat @@ -293,7 +293,7 @@ if errorlevel 1 exit /b 1 if errorlevel 1 exit /b 1 %compile_s% foo.import.scm if errorlevel 1 exit /b 1 -%interpret% -bnq -e "(require-library meta-syntax-test)" -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" +%interpret% -bnq meta-syntax-test.scm -e "(require-library meta-syntax-test)" -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))" -e "(import test-import-syntax-for-syntax)" -e "(assert (equal? '(1) (test)))" -e "(import test-begin-for-syntax)" -e "(assert (equal? '(1) (test)))" if errorlevel 1 exit /b 1 echo ======================================== reexport tests ...Trap