X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fexpect.sh;fp=tests%2Fexpect.sh;h=60cbdc8cb1a9466af9fed2c066d6224de33fa940;hb=a69ce2e3ddf66eb87010ecdd3617a286caa8e69a;hp=5919750e99baf75f3eb73fa2d0154f7ee2abff79;hpb=305d6ddb826451ee5ab8e2d6ffa15f7dfc1de873;p=sbcl.git

diff --git a/tests/expect.sh b/tests/expect.sh
index 5919750..60cbdc8 100644
--- a/tests/expect.sh
+++ b/tests/expect.sh
@@ -30,6 +30,19 @@ EOF
     check_status_maybe_lose load-into-interpreter $?
 }
 
+expect_clean_cload ()
+{
+    expect_clean_compile $1
+    run_sbcl <<EOF
+        (multiple-value-bind (value0 value1) 
+            (ignore-errors (load (compile-file-pathname "$1")))
+          (assert value0)
+          (assert (null value1)))
+        (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+EOF
+    check_status_maybe_lose load-compiled $?
+}
+
 # Test that a file compiles cleanly, with no ERRORs, WARNINGs or
 # STYLE-WARNINGs.
 expect_clean_compile ()