X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexpect.sh;fp=tests%2Fexpect.sh;h=5919750e99baf75f3eb73fa2d0154f7ee2abff79;hb=a42922aef908a1b45ae5420d51b2ca7ee1bafb9e;hp=9976e298ed150f089db995b1adf9e7ed70e509a7;hpb=bb4a4dd1cb4ddd79fafbc6dabc0cb987d44c326d;p=sbcl.git

diff --git a/tests/expect.sh b/tests/expect.sh
index 9976e29..5919750 100644
--- a/tests/expect.sh
+++ b/tests/expect.sh
@@ -1,91 +1,78 @@
 # file to be sourced by scripts wanting to test the compiler
 
+. ./subr.sh
+
 # Check that compiling and loading the file $1 generates an error
 # at load time; also that just loading it directly (into the
 # interpreter) generates an error.
 expect_load_error ()
 {
     # Test compiling and loading.
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (compile-file "$1")
         ;;; But loading the file should fail.
         (multiple-value-bind (value0 value1) (ignore-errors (load *))
             (assert (null value0))
             (format t "VALUE1=~S (~A)~%" value1 value1)
             (assert (typep value1 'error)))
-        (sb-ext:quit :unix-status 52)
+        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
 EOF
-    if [ $? != 52 ]; then
-        echo compile-and-load $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose compile-and-load $?
 
     # Test loading into the interpreter.
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (multiple-value-bind (value0 value1) (ignore-errors (load "$1"))
             (assert (null value0))
             (format t "VALUE1=~S (~A)~%" value1 value1)
             (assert (typep value1 'error)))
-        (sb-ext:quit :unix-status 52)
+        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
 EOF
-    if [ $? != 52 ]; then
-        echo load-into-interpreter $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose load-into-interpreter $?
 }
 
 # Test that a file compiles cleanly, with no ERRORs, WARNINGs or
 # STYLE-WARNINGs.
 expect_clean_compile ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (multiple-value-bind (pathname warnings-p failure-p)
             (compile-file "$1")
           (declare (ignore pathname))
           (assert (not warnings-p))
           (assert (not failure-p))
-          (sb-ext:quit :unix-status 52))
+          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
 EOF
-    if [ $? != 52 ]; then
-        echo clean-compile $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose clean-compile $?
 }
 
 expect_warned_compile ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (multiple-value-bind (pathname warnings-p failure-p)
             (compile-file "$1")
           (declare (ignore pathname))
           (assert warnings-p)
           (assert (not failure-p))
-          (sb-ext:quit :unix-status 52))
+          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
 EOF
-    if [ $? != 52 ]; then
-        echo warn-compile $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose warn-compile $?
 }
 
 expect_failed_compile ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (multiple-value-bind (pathname warnings-p failure-p)
             (compile-file "$1")
           (declare (ignore pathname warnings-p))
           (assert failure-p)
-          (sb-ext:quit :unix-status 52))
+          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
 EOF
-    if [ $? != 52 ]; then
-        echo fail-compile $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose fail-compile $?
 }
 
 expect_aborted_compile ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (let* ((lisp "$1")
                (fasl (compile-file-pathname lisp)))
           (multiple-value-bind (pathname warnings-p failure-p)
@@ -94,37 +81,29 @@ expect_aborted_compile ()
             (assert failure-p)
             (assert warnings-p)
             (assert (not (probe-file fasl))))
-          (sb-ext:quit :unix-status 52))
+          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
 EOF
-    if [ $? != 52 ]; then
-        echo abort-compile $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose abort-compile $?
 }
 
 fail_on_compiler_note ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (handler-bind ((sb-ext:compiler-note #'error))
           (compile-file "$1")
-          (sb-ext:quit :unix-status 52))
+          (sb-ext:quit :unix-status $EXIT_LISP_WIN))
 EOF
-    if [ $? != 52 ]; then
-        echo fail-on-compiler-note $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose fail-on-compiler-note $?
 }
 
 expect_compiler_note ()
 {
-    $SBCL <<EOF
+    run_sbcl <<EOF
         (handler-bind ((sb-ext:compiler-note (lambda (c)
                                                (declare (ignore c))
-                                               (sb-ext:quit :unix-status 52))))
+                                               (sb-ext:quit :unix-status
+                                                            $EXIT_LISP_WIN))))
           (compile-file "$1"))
 EOF
-    if [ $? != 52 ]; then
-        echo expect-compiler-note $1 test failed: $?
-        exit 1
-    fi
+    check_status_maybe_lose expect-compiler-note $?
 }