projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.19.20: fast CLRHASH on empty hash-tables
[sbcl.git]
/
tests
/
clos.test.sh
diff --git
a/tests/clos.test.sh
b/tests/clos.test.sh
index
174fceb
..
9f8d4e1
100644
(file)
--- a/
tests/clos.test.sh
+++ b/
tests/clos.test.sh
@@
-6,16
+6,16
@@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
-#
+#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
-. expect.sh
+. ./expect.sh
+
+use_test_subdirectory
-base_tmpfilename="clos-test-$$-tmp"
-tmpfilename="$base_tmpfilename.lisp"
-compiled_tmpfilename="$base_tmpfilename.fasl"
+tmpfilename="$TEST_FILESTEM.lisp"
# This should fail, but didn't until sbcl-0.6.12.7, with Martin
# Atzmueller's port of Pierre Mai's fixes.
# This should fail, but didn't until sbcl-0.6.12.7, with Martin
# Atzmueller's port of Pierre Mai's fixes.
@@
-61,7
+61,7
@@
expect_load_error $tmpfilename
# succession.
cat > $tmpfilename <<EOF
(in-package :cl-user)
# succession.
cat > $tmpfilename <<EOF
(in-package :cl-user)
- (defclass another-class-with-slots ()
+ (defclass another-class-with-slots ()
(a-new-slot-name))
(defun foo (x)
(values (setf (slot-value x 'a-new-slot-name) 2)
(a-new-slot-name))
(defun foo (x)
(values (setf (slot-value x 'a-new-slot-name) 2)
@@
-69,8
+69,5
@@
cat > $tmpfilename <<EOF
EOF
expect_clean_compile $tmpfilename
EOF
expect_clean_compile $tmpfilename
-rm $tmpfilename
-rm $compiled_tmpfilename
-
-# success
-exit 104
+# success
+exit $EXIT_TEST_WIN