X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexpect.sh;h=b3c986cc5a3e9f8f3c62856dd29bd0f332745b51;hb=16a6592367eec7c5e9da668ec42fd260e7705b0c;hp=036364069579d974e7e3866d7c8712b6e4a3994b;hpb=778877cd8b0aad3cc3d2555e83d55e9f229678c7;p=sbcl.git

diff --git a/tests/expect.sh b/tests/expect.sh
index 0363640..b3c986c 100644
--- a/tests/expect.sh
+++ b/tests/expect.sh
@@ -36,10 +36,6 @@ EOF
 
 # Test that a file compiles cleanly, with no ERRORs, WARNINGs or
 # STYLE-WARNINGs.
-#
-# Maybe this wants to be in a compiler.test.sh script?  This function
-# was originally written to test APD's patch for slot readers and
-# writers not being known to the compiler. -- CSR, 2002-08-14
 expect_clean_compile () 
 {
     $SBCL <<EOF
@@ -95,8 +91,21 @@ fail_on_compiler_note ()
           (sb-ext:quit :unix-status 52))
 EOF
     if [ $? != 52 ]; then
-        echo compiler-note $1 test failed: $?
+        echo fail-on-compiler-note $1 test failed: $?
         exit 1
     fi
 }
 
+expect_compiler_note ()
+{
+    $SBCL <<EOF
+        (handler-bind ((sb-ext:compiler-note (lambda (c)
+                                               (declare (ignore c))
+                                               (sb-ext:quit :unix-status 52))))
+          (compile-file "$1"))
+EOF
+    if [ $? != 52 ]; then
+	echo expect-compiler-note $1 test failed: $?
+	exit 1
+    fi
+}