X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexpect.sh;fp=tests%2Fexpect.sh;h=9976e298ed150f089db995b1adf9e7ed70e509a7;hb=a0889b188cadcbb5c5fde6807662ea299e6c134d;hp=49e84893344343f01d1db2653beb843663f72018;hpb=81880593109f9f359cd06dc5c4323750ccc2bf21;p=sbcl.git

diff --git a/tests/expect.sh b/tests/expect.sh
index 49e8489..9976e29 100644
--- a/tests/expect.sh
+++ b/tests/expect.sh
@@ -83,6 +83,25 @@ EOF
     fi
 }
 
+expect_aborted_compile ()
+{
+    $SBCL <<EOF
+        (let* ((lisp "$1")
+               (fasl (compile-file-pathname lisp)))
+          (multiple-value-bind (pathname warnings-p failure-p)
+              (compile-file "$1" :print t)
+            (assert (not pathname))
+            (assert failure-p)
+            (assert warnings-p)
+            (assert (not (probe-file fasl))))
+          (sb-ext:quit :unix-status 52))
+EOF
+    if [ $? != 52 ]; then
+        echo abort-compile $1 test failed: $?
+        exit 1
+    fi
+}
+
 fail_on_compiler_note ()
 {
     $SBCL <<EOF