Hi all,

I think this trivial patch could make it into the release.  This runs
the scrutiny tests only in analysis mode.  We don't need to generate
C code and we certainly don't need to link the program, and that's
what causes the warnings.

Christian has confirmed that this causes "make check" to get past this
particular test.  There are still issues with the deployments tests,
though.

Cheers,
Peter
-- 
http://sjamaan.ath.cx
--
"The process of preparing programs for a digital computer
 is especially attractive, not only because it can be economically
 and scientifically rewarding, but also because it can be an aesthetic
 experience much like composing poetry or music."
                                                        -- Donald Knuth
>From 3adba557f3eb2686ab9fcc7a819db1ec96579e2c Mon Sep 17 00:00:00 2001
From: Peter Bex <[email protected]>
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

_______________________________________________
Chicken-hackers mailing list
[email protected]
https://lists.nongnu.org/mailman/listinfo/chicken-hackers

Reply via email to