projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.13.1: Various cleanups and touchups in tests/
[sbcl.git]
/
tests
/
compiler.test.sh
diff --git
a/tests/compiler.test.sh
b/tests/compiler.test.sh
index
f7c9218
..
48aa64e
100644
(file)
--- a/
tests/compiler.test.sh
+++ b/
tests/compiler.test.sh
@@
-13,9
+13,9
@@
. ./expect.sh
. ./expect.sh
-base_tmpfilename="compiler-test-$$-tmp"
-tmpfilename="$base_tmpfilename.lisp"
-compiled_tmpfilename="$base_tmpfilename.fasl"
+use_test_subdirectory
+
+tmpfilename="$TEST_FILESTEM.lisp"
# This should fail, as type inference should show that the call to FOO
# will return something of the wrong type.
# This should fail, as type inference should show that the call to FOO
# will return something of the wrong type.
@@
-365,14
+365,19
@@
cat > $tmpfilename <<EOF
(eval-when (:compile-toplevel :load-toplevel :execute)
(defstruct foox)
(defmethod make-load-form ((foo foox) &optional env)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defstruct foox)
(defmethod make-load-form ((foo foox) &optional env)
- `(make-foox)))
+ (declare (ignore env))
+ '(make-foox)))
(defstruct bar
(foo #.(make-foox)))
EOF
expect_clean_compile $tmpfilename
(defstruct bar
(foo #.(make-foox)))
EOF
expect_clean_compile $tmpfilename
-rm $tmpfilename
-rm $compiled_tmpfilename
+cat > $tmpfilename <<EOF
+(defun something (x) x)
+...
+(defun something-more (x) x)
+EOF
+expect_aborted_compile $tmpfilename
# success
# success
-exit 104
+exit $EXIT_TEST_WIN