X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fundefined-classoid-bug.test.sh;h=aa552858db82078a90414fff00462b08eea68289;hb=a189a69454ef7635149319ae213b337f17c50d20;hp=ad05e77259ef2fd488fc3e9d068c79eae621ed46;hpb=412fb51c01281e2bdf2805415267545f64b0ab0e;p=sbcl.git

diff --git a/tests/undefined-classoid-bug.test.sh b/tests/undefined-classoid-bug.test.sh
index ad05e77..aa55285 100644
--- a/tests/undefined-classoid-bug.test.sh
+++ b/tests/undefined-classoid-bug.test.sh
@@ -1,26 +1,28 @@
 # This file run a regression test for a bug in loading
 # forward-referenced layouts.
 
+. ./subr.sh
+
+use_test_subdirectory
+
 FILES='"undefined-classoid-bug-1.lisp" "undefined-classoid-bug-2.lisp"'
 FASLS='"undefined-classoid-bug-1.fasl" "undefined-classoid-bug-2.fasl"'
 
-${SBCL:-sbcl} <<EOF
+for f in $FILES; do
+    (cd "$SBCL_PWD"; cp `eval "echo $f"` "$TEST_DIRECTORY");
+done
+
+run_sbcl <<EOF
 (let ((files (list $FILES)))
   (mapc #'load files)
   (mapc #'compile-file files))
-(quit :unix-status 52)
+(exit :code 52)
 EOF
 
-${SBCL:-sbcl} <<EOF
+run_sbcl <<EOF
 (mapc #'load (list $FASLS))
-(quit :unix-status 52)
+(exit :code $EXIT_LISP_WIN)
 EOF
+check_status_maybe_lose undefined-classoid-bug $?
 
-if [ $? != 52 ]; then
-    rm $FASLS
-    echo undefined-classoid-bug test failed: $?
-    exit 1 # Failure
-fi
-
-# success convention for script
-exit 104
+exit $EXIT_TEST_WIN