~ 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