~ chicken-core (chicken-5) 0e68a6d2ff664fbedfd47b0553c59e97ea86f928

commit 0e68a6d2ff664fbedfd47b0553c59e97ea86f928
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Sep 14 10:46:49 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 14 19:49:56 2012 +0200

    Run scrutiny tests in analyze-only mode. We don't run the resulting program, and on OpenBSD the linker warnings about unsafe functions create spurious diffs between expected and actual compiler output. This fixes #923
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/tests/runtests.bat b/tests/runtests.bat
index 92b1ce6a..a9cfa2c0 100644
--- a/tests/runtests.bat
+++ b/tests/runtests.bat
@@ -38,7 +38,7 @@ echo ======================================== scrutiny tests ...
 if errorlevel 1 exit /b 1
 a.out
 if errorlevel 1 exit /b 1
-%compile% scrutiny-tests.scm -scrutinize -ignore-repository -types %TYPESDB% -verbose 2>scrutiny.out
+%compile% scrutiny-tests.scm -A -scrutinize -ignore-repository -types %TYPESDB% -verbose 2>scrutiny.out
 if errorlevel 1 exit /b 1
 
 rem this is sensitive to gensym-names, so make it optional
@@ -47,7 +47,7 @@ if not exist scrutiny.expected copy /Y scrutiny.out scrutiny.expected
 fc /w scrutiny.expected scrutiny.out
 if errorlevel 1 exit /b 1
 
-%compile% scrutiny-tests-2.scm -scrutinize -analyze-only -ignore-repository -types %TYPESDB% -verbose 2>scrutiny-2.out
+%compile% scrutiny-tests-2.scm -A -scrutinize -analyze-only -ignore-repository -types %TYPESDB% -verbose 2>scrutiny-2.out
 if errorlevel 1 exit /b 1
 
 if not exist scrutiny-2.expected copy /Y scrutiny-2.out scrutiny-2.expected
diff --git a/tests/runtests.sh b/tests/runtests.sh
index e875b3d1..3009346f 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -74,7 +74,7 @@ $compile inlining-tests.scm -optimize-level 3
 echo "======================================== scrutiny tests ..."
 $compile typematch-tests.scm -specialize -w
 ./a.out
-$compile scrutiny-tests.scm -scrutinize -ignore-repository -types $TYPESDB 2>scrutiny.out -verbose
+$compile scrutiny-tests.scm -A -scrutinize -ignore-repository -types $TYPESDB 2>scrutiny.out -verbose
 
 if test -n "$MSYSTEM"; then
     dos2unix scrutiny.out
@@ -87,7 +87,7 @@ fi
 
 diff -bu scrutiny.expected scrutiny.out
 
-$compile scrutiny-tests-2.scm -scrutinize -analyze-only -ignore-repository -types $TYPESDB 2>scrutiny-2.out -verbose
+$compile scrutiny-tests-2.scm -A -scrutinize -analyze-only -ignore-repository -types $TYPESDB 2>scrutiny-2.out -verbose
 
 if test -n "$MSYSTEM"; then
     dos2unix scrutiny-2.out