~ chicken-core (chicken-5) a46f40533aa8e8c1222e3bc4478da98a1d693a61
commit a46f40533aa8e8c1222e3bc4478da98a1d693a61
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:40:50 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