>From 3adba557f3eb2686ab9fcc7a819db1ec96579e2c Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Fri, 14 Sep 2012 10:46:49 +0200
Subject: [PATCH] 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

---
 tests/runtests.bat |    4 ++--
 tests/runtests.sh  |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/runtests.bat b/tests/runtests.bat
index 92b1ce6..a9cfa2c 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 e875b3d..3009346 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
-- 
1.7.9.1