Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19202/tests
Modified Files:
run-tests.sh alien.impure.lisp backq.impure.lisp
bit-vector.impure-cload.lisp bivalent-stream.impure.lisp
callback.impure.lisp clos.impure-cload.lisp clos.impure.lisp
compiler-1.impure-cload.lisp compiler.impure-cload.lisp
compiler.impure.lisp compound-cons.impure.lisp
condition.impure.lisp debug.impure.lisp
define-compiler-macro.impure.lisp defstruct.impure.lisp
deftype.impure.lisp dump.impure-cload.lisp
dynamic-extent.impure.lisp eucjp.impure.lisp eval.impure.lisp
exhaust.impure.lisp external-format.impure.lisp
float.impure.lisp float.pure.lisp gc.impure.lisp
gray-streams.impure.lisp hash.impure.lisp info.impure.lisp
interface.impure.lisp load.impure.lisp loop.impure.lisp
map-tests.impure.lisp mop-3.impure-cload.lisp
mop-4.impure-cload.lisp mop-5.impure-cload.lisp
mop.impure-cload.lisp mop.impure.lisp
package-locks.impure.lisp packages.impure.lisp
pathnames.impure.lisp pprint.impure.lisp print.impure.lisp
properties.impure.lisp reader.impure.lisp seq.impure.lisp
setf.impure.lisp smoke.impure.lisp static-alloc.impure.lisp
stream.impure.lisp threads.impure.lisp type.impure.lisp
walk.impure.lisp
Added Files:
run-tests.lisp test-util.lisp
Log Message:
0.9.4.6:
Rewrite the test infrastructure to make it a bit more useful, without
having to make major changes to the test files.
Move most of run-tests.sh Lisp-side. New features:
* Don't bail out at first failure (unless running with
--break-on-failure)
* Report failed tests at the end of the run
* Tests can be marked as expected to fail on certain platforms
* Tests can be named
* A subset of test files to run can be specified on the command line
Todo:
* "Quis custodiet ipsos custodes?". Tests for the test framework.
Changes to the tests:
* Remove the explicit quits on success from the impure tests
(handled by the test framework)
* Mark some obvious cases as "expected to fail on FOO"
Other:
* Remove an (unrelated) fixed BUGS entry
--- NEW FILE: run-tests.lisp ---
#+#.(cl:if (cl:find-package "ASDF") '(or) '(and))
(load (merge-pathnames "../contrib/asdf/asdf.fasl"))
#+#.(cl:if (cl:find-package "SB-POSIX") '(or) '(and))
(let ((asdf:*central-registry*
(cons "../contrib/systems/" asdf:*central-registry*)))
(asdf:oos 'asdf:load-op 'sb-posix))
(load "test-util.lisp")
(defpackage :run-tests
(:use :cl :test-util :sb-ext))
(load "assertoid.lisp")
(in-package run-tests)
(defvar *all-failures* nil)
(defvar *break-on-error* nil)
(defvar *accept-files* nil)
(defun run-all ()
(dolist (arg (cdr *posix-argv*))
(cond ((string= arg "--break-on-failure")
(setf *break-on-error* t)
(setf test-util:*break-on-failure* t))
((string= arg "--break-on-expected-failure")
(setf test-util:*break-on-expected-failure* t))
(t
(push (truename (parse-namestring arg)) *accept-files*))))
(pure-runner (pure-load-files) #'load-test)
(pure-runner (pure-cload-files) #'cload-test)
(impure-runner (impure-load-files) #'load-test)
(impure-runner (impure-cload-files) #'cload-test)
(impure-runner (sh-files) #'sh-test)
(report)
(sb-ext:quit :unix-status (if (unexpected-failures)
1
104)))
(defun report ()
(terpri)
(format t "Finished running tests.~%")
(cond (*all-failures*
(format t "Status:~%")
(dolist (fail (reverse *all-failures*))
(cond ((eq (car fail) :unhandled-error)
(format t " ~20a ~a~%"
"Unhandled error"
(enough-namestring (second fail))))
((eq (car fail) :invalid-exit-status)
(format t " ~20a ~a~%"
"Invalid exit status:"
(enough-namestring (second fail))))
(t
(format t " ~20a ~a / ~a~%"
(ecase (first fail)
(:expected-failure "Expected failure:")
(:unexpected-failure "Failure:")
(:unexpected-success "Unexcepted success:"))
(enough-namestring (second fail))
(third fail))))))
(t
(format t "All tests succeeded~%"))))
(defun pure-runner (files test-fun)
(format t "// Running pure tests (~a)~%" test-fun)
(let ((*package* (find-package :cl-user))
(*failures* nil))
(setup-cl-user)
(dolist (file files)
(when (accept-test-file file)
(format t "// Running ~a~%" file)
(handler-case
(funcall test-fun file)
(error (error)
(push (list :unhandled-error file)
*all-failures*)
(when *break-on-error*
(test-util:really-invoke-debugger error))))))
(append-failures)))
(defun impure-runner (files test-fun)
(format t "// Running impure tests (~a)~%" test-fun)
(let ((*package* (find-package :cl-user)))
(setup-cl-user)
(dolist (file files)
(when (accept-test-file file)
(force-output)
(let ((pid (sb-posix:fork)))
(cond ((= pid 0)
(format t "// Running ~a~%" file)
(handler-case
(funcall test-fun file)
(error (error)
(push (list :unhandled-error file) *failures*)
(when *break-on-error*
(test-util:really-invoke-debugger error))))
(report-test-status)
(sb-ext:quit :unix-status 104))
(t
(let ((status (make-array 1 :element-type '(signed-byte 32))))
(sb-posix:waitpid pid 0 status)
(if (and (sb-posix:wifexited (aref status 0))
(= (sb-posix:wexitstatus (aref status 0))
104))
(with-open-file (stream "test-status.lisp-expr"
:direction :input
:if-does-not-exist :error)
(append-failures (read stream)))
(push (list :invalid-exit-status file)
*all-failures*))))))))))
(defun append-failures (&optional (failures *failures*))
(setf *all-failures* (append failures *all-failures*)))
(defun unexpected-failures ()
(remove-if (lambda (x) (eq (car x) :expected-failure)) *all-failures*))
(defun setup-cl-user ()
(use-package :test-util)
(use-package :assertoid))
(defun load-test (file)
(load file))
(defun cload-test (file)
(let ((compile-name (compile-file-pathname file)))
(unwind-protect
(progn
(compile-file file)
(load compile-name))
(ignore-errors
(delete-file compile-name)))))
(defun sh-test (file)
;; What? No SB-POSIX:EXECV?
(let ((process (sb-ext:run-program "/bin/sh"
(list (namestring file))
:output *error-output*)))
(sb-ext:quit :unix-status (process-exit-code process))))
(defun accept-test-file (file)
(if *accept-files*
(find (truename file) *accept-files* :test #'equalp)
t))
(defun pure-load-files ()
(directory "*.pure.lisp"))
(defun pure-cload-files ()
(directory "*.pure-cload.lisp"))
(defun impure-load-files ()
(directory "*.impure.lisp"))
(defun impure-cload-files ()
(directory "*.impure-cload.lisp"))
(defun sh-files ()
(directory "*.test.sh"))
--- NEW FILE: test-util.lisp ---
(defpackage :test-util
(:use :cl :sb-ext)
(:export #:with-test #:report-test-status #:*failures*
#:really-invoke-debugger
#:*break-on-failure* #:*break-on-expected-failure*))
(in-package :test-util)
(defvar *test-count* 0)
(defvar *test-file* nil)
(defvar *failures* nil)
(defvar *break-on-failure* nil)
(defvar *break-on-expected-failure* nil)
(defmacro with-test ((&key fails-on name) &body body)
`(handler-case (progn
(start-test)
,@body
(when (expected-failure-p ,fails-on)
(fail-test :unexpected-success ',name nil)))
(error (error)
(if (expected-failure-p ,fails-on)
(fail-test :expected-failure ',name error)
(fail-test :unexpected-failure ',name error)))))
(defun report-test-status ()
(with-standard-io-syntax
(with-open-file (stream "test-status.lisp-expr"
:direction :output
:if-exists :supersede)
(format stream "~s~%" *failures*))))
(defun start-test ()
(unless (eq *test-file* *load-pathname*)
(setf *test-file* *load-pathname*)
(setf *test-count* 0))
(incf *test-count*))
(defun fail-test (type test-name condition)
(push (list type *test-file* (or test-name *test-count*))
*failures*)
(when (or (and *break-on-failure*
(not (eq type :expected-failure)))
*break-on-expected-failure*)
(really-invoke-debugger condition)))
(defun expected-failure-p (fails-on)
(sb-impl::featurep fails-on))
(defun really-invoke-debugger (condition)
(with-simple-restart (continue "Continue")
(let ((*invoke-debugger-hook* *invoke-debugger-hook*))
(enable-debugger)
(invoke-debugger condition))))
Index: run-tests.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/run-tests.sh,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- run-tests.sh 5 Jul 2005 20:44:49 -0000 1.28
+++ run-tests.sh 26 Aug 2005 21:09:04 -0000 1.29
@@ -1,6 +1,13 @@
#!/bin/sh
# Run the regression tests in this directory.
+#
+# Usage: run-tests.sh [--break-on-failure] [--break-on-expected-failure] [files]
+# --break-on-failure Break into the debugger when a test fails
+# unexpectedly
+# --break-on-expected-failure Break into the debugger when any test fails
+#
+# If no test files are specified, runs all tests.
# This software is part of the SBCL system. See the README file for
# more information.
@@ -20,7 +27,7 @@
# generated relative to `pwd` in the tests/ directory) so that tests
# can chdir before invoking SBCL and still work.
sbclstem=`pwd`/../src/runtime/sbcl
-SBCL="${1:-$sbclstem --core `pwd`/../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger}"
+SBCL="$sbclstem --core `pwd`/../output/sbcl.core --noinform --sysinit /dev/null --userinit /dev/null --noprint --disable-debugger"
export SBCL
echo /running tests on SBCL=\'$SBCL\'
# more or less like SBCL, but without enough grot removed that appending
@@ -30,7 +37,9 @@
# --sysinit, so if you use it in a test, you need to add those
# yourself if you want things to be clean. If many tests start using
# this, we can redo it as a shell function or something so that the
-# magic can be done once and only once.)
+# magic can be done once and only once.). Not used in this file, but
+# exists for the benefit of the *.test.sh files that can be started by
+# run-tests.lisp
SBCL_ALLOWING_CORE=${1:-$sbclstem}
export SBCL_ALLOWING_CORE
echo /with SBCL_ALLOWING_CORE=\'$SBCL_ALLOWING_CORE\'
@@ -50,106 +59,17 @@
# successful" path.
tenfour () {
if [ $1 = 104 ]; then
- echo ok
+ echo ok
else
- echo test $2 failed, expected 104 return code, got $1
- exit 1
+ echo test $2 failed, expected 104 return code, got $1
+ exit 1
fi
}
-# *.pure.lisp files are ordinary Lisp code with no side effects,
-# and we can run them all in a single Lisp process.
-echo //running '*.pure.lisp' tests
-echo //i.e. *.pure.lisp
-(
-echo "(progn"
-echo " (progn (format t \"//loading assertoid.lisp~%\") (load \"assertoid.lisp\"))"
-echo " (use-package \"ASSERTOID\")"
-for f in *.pure.lisp; do
- if [ -f $f ]; then
- echo " (progn (format t \"//running $f test~%\") (load \"$f\"))"
- fi
-done
-echo " (sb-ext:quit :unix-status 104)) ; Return status=success."
-) | $SBCL ; tenfour $? "(pure.lisp files)"
-
-# *.impure.lisp files are Lisp code with side effects (e.g. doing
-# DEFSTRUCT or DEFTYPE or DEFVAR, or messing with the read table).
-# Each one should be LOADed in a separate invocation of Lisp, so
-# that we don't need to worry about them interfering with each
-# other.
-echo //running '*.impure.lisp' tests
-for f in *.impure.lisp; do
- if [ -f $f ]; then
- echo //running $f test
- echo "(load \"$f\")" | $SBCL ; tenfour $? $f
- fi
-done
-
-# *.test.sh files are scripts to test stuff, typically stuff which
-# can't so easily be tested within Lisp itself. A file foo.test.sh
-# may be associated with other files foo*, e.g. foo.lisp, foo-1.lisp,
-# or foo.pl.
-echo //running '*.test.sh' tests
-for f in *.test.sh; do
- if [ -f $f ]; then
- echo //running $f test
- sh $f "$SBCL"; tenfour $? $f
- fi
-done
-
-# *.assertoids files contain ASSERTOID statements to test things
-# interpreted and at various compilation levels.
-echo //running '*.assertoids' tests
-for f in *.assertoids; do
- if [ -f $f ]; then
- echo //running $f test
- echo "(load \"$f\")" | $SBCL --eval '(load "assertoid.lisp")' ; tenfour $? $f
- fi
-done
-
-# *.pure-cload.lisp files want to be compiled, then loaded. They
-# can all be done in the same invocation of Lisp.
-echo //running '*.pure-cload.lisp' tests
-for f in *.pure-cload.lisp; do
- # (Actually here we LOAD each one into a separate invocation
- # of Lisp just because I haven't figured out a concise way
- # to LOAD them all into the same Lisp.)
- if [ -f $f ]; then
- echo //running $f test
- $SBCL <<EOF ; tenfour $? $f
- (compile-file "$f")
- (progn
- (unwind-protect
- (load *)
- (ignore-errors (delete-file (compile-file-pathname "$f"))))
- (sb-ext:quit :unix-status 104))
-EOF
- fi
-done
-
-# *.impure-cload.lisp files want to be compiled, then loaded. They
-# can have side effects, so each one should be done in a separate
-# invocation of Lisp so that they don't interfere.
-echo //running '*.impure-cload.lisp' tests
-for f in *.impure-cload.lisp; do
- if [ -f $f ]; then
- echo //running $f test
- $SBCL <<EOF ; tenfour $? $f
- (compile-file "$f")
- (progn
- (unwind-protect
- (load *)
- (ignore-errors (delete-file (compile-file-pathname "$f"))))
- (sb-ext:quit :unix-status 104))
-EOF
- fi
-done
+$SBCL --eval '(with-compilation-unit () (load "run-tests.lisp"))' \
+ --eval '(run-tests::run-all)' $*
-# (*.before-xc.lisp and *.after-xc.lisp files aren't handled in this
-# script at all. They're tests intended to run in the cross-compiler,
-# so that some functionality can be tested even when cold init doesn't
-# work.)
+tenfour $?
echo '//apparent success (reached end of run-tests.sh normally)'
date
Index: alien.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/alien.impure.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- alien.impure.lisp 14 Jul 2005 16:30:43 -0000 1.11
+++ alien.impure.lisp 26 Aug 2005 21:09:04 -0000 1.12
@@ -126,4 +126,3 @@
(assert (typep (funcall f "HOME") '(or string null))))
;;; success
-(quit :unix-status 104)
Index: backq.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/backq.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- backq.impure.lisp 14 Jul 2005 16:30:43 -0000 1.5
+++ backq.impure.lisp 26 Aug 2005 21:09:04 -0000 1.6
@@ -61,6 +61,3 @@
(let ((a '`(1 ,@a ,@b ,.c ,.d)))
(let ((*print-circle* t))
(assert (equal (read-from-string (write-to-string a)) a))))
-
-;;; success
-(quit :unix-status 104)
Index: bit-vector.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/bit-vector.impure-cload.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- bit-vector.impure-cload.lisp 14 Jul 2005 16:30:43 -0000 1.5
+++ bit-vector.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.6
@@ -84,6 +84,3 @@
;; except on machines where addressable space is likely to be
;; much bigger than physical memory
(test-big-bit-vectors)
-
-;;; success
-(sb-ext:quit :unix-status 104)
Index: bivalent-stream.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/bivalent-stream.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- bivalent-stream.impure.lisp 14 Jul 2005 16:30:43 -0000 1.2
+++ bivalent-stream.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -34,4 +34,3 @@
(delete-file "bivalent-stream-test.txt")
-(sb-ext:quit :unix-status 104)
Index: callback.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/callback.impure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- callback.impure.lisp 14 Jul 2005 16:30:43 -0000 1.4
+++ callback.impure.lisp 26 Aug 2005 21:09:04 -0000 1.5
@@ -126,4 +126,3 @@
(assert (= 26 (alien-funcall foo)))
-(quit :unix-status 104)
Index: clos.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure-cload.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- clos.impure-cload.lisp 14 Jul 2005 16:30:43 -0000 1.15
+++ clos.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.16
@@ -164,6 +164,3 @@
(make-instance 'class-with-symbol-initarg slot arg))
(assert (eql (slot-value (make-thing 1) 'slot) 1))
(assert (eql (slot-value (make-other-thing 'slot 2) 'slot) 2))
-
-;;; success
-(sb-ext:quit :unix-status 104)
Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -d -r1.70 -r1.71
--- clos.impure.lisp 18 Aug 2005 10:06:32 -0000 1.70
+++ clos.impure.lisp 26 Aug 2005 21:09:04 -0000 1.71
@@ -1179,4 +1179,3 @@
(list 1 1))))))
;;;; success
-(sb-ext:quit :unix-status 104)
Index: compiler-1.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler-1.impure-cload.lisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- compiler-1.impure-cload.lisp 16 Aug 2005 10:44:41 -0000 1.23
+++ compiler-1.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.24
@@ -238,5 +238,3 @@
(find-class 'some-structure nil))
(eval-when (:load-toplevel)
(assert (typep (find-class 'some-structure) 'class)))
-
-(sb-ext:quit :unix-status 104) ; success
Index: compiler.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure-cload.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- compiler.impure-cload.lisp 26 Aug 2005 20:30:06 -0000 1.26
+++ compiler.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.27
@@ -448,6 +448,3 @@
(progv '(*hannu-trap*) '()
(setq *hannu-trap* t))
(assert (not *hannu-trap*))
-
-
-(sb-ext:quit :unix-status 104)
Index: compiler.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- compiler.impure.lisp 14 Jul 2005 16:30:43 -0000 1.62
+++ compiler.impure.lisp 26 Aug 2005 21:09:04 -0000 1.63
@@ -1068,4 +1068,3 @@
(assert (= e-count 4)))))
;;; success
-(quit :unix-status 104)
Index: compound-cons.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compound-cons.impure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- compound-cons.impure.lisp 14 Jul 2005 16:30:43 -0000 1.4
+++ compound-cons.impure.lisp 26 Aug 2005 21:09:04 -0000 1.5
@@ -63,5 +63,3 @@
(assert (not (subtypep 'cons '(cons structure-object number))))
(assert (subtypep '(cons null fixnum) (type-of '(nil 44))))
-
-(sb-ext:quit :unix-status 104) ; success
Index: condition.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/condition.impure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- condition.impure.lisp 14 Jul 2005 16:30:43 -0000 1.4
+++ condition.impure.lisp 26 Aug 2005 21:09:04 -0000 1.5
@@ -47,4 +47,3 @@
'(and condition counted-condition)))
;;; success
-(sb-ext:quit :unix-status 104)
Index: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- debug.impure.lisp 1 Aug 2005 13:20:48 -0000 1.20
+++ debug.impure.lisp 26 Aug 2005 21:09:04 -0000 1.21
@@ -125,7 +125,6 @@
'(#+(or x86 x86-64) "bogus stack frame"
#-(or x86 x86-64) "undefined function"))
-#-(or alpha) ; bug 346
;;; Test for "undefined function" (undefined_tramp) working properly.
;;; Try it with and without tail call elimination, since they can have
;;; different effects. (Specifically, if undefined_tramp is incorrect
@@ -140,21 +139,21 @@
(declare (optimize (speed 1) (debug 2))) ; no tail call elimination
(funcall fun)))
- (assert (verify-backtrace
- (lambda () (test #'optimized))
- (list *undefined-function-frame*
- (list '(flet test) #'optimized))))
+ (with-test (:fails-on '(or :alpha)) ; bug 346
+ (assert (verify-backtrace
+ (lambda () (test #'optimized))
+ (list *undefined-function-frame*
+ (list '(flet test) #'optimized)))))
;; bug 353: This test fails at least most of the time for x86/linux
;; ca. 0.8.20.16. -- WHN
- #-(and x86 linux)
- (assert (verify-backtrace
- (lambda () (test #'not-optimized))
- (list *undefined-function-frame*
- (list '(flet not-optimized))
- (list '(flet test) #'not-optimized)))))
+ (with-test (:fails-on '(or (and :x86 :linux) :alpha))
+ (assert (verify-backtrace
+ (lambda () (test #'not-optimized))
+ (list *undefined-function-frame*
+ (list '(flet not-optimized))
+ (list '(flet test) #'not-optimized))))))
-#-alpha ; bug 346
;;; Division by zero was a common error on PPC. It depended on the
;;; return function either being before INTEGER-/-INTEGER in memory,
;;; or more than MOST-POSITIVE-FIXNUM bytes ahead. It also depends on
@@ -176,19 +175,21 @@
(test (fun)
(declare (optimize (speed 1) (debug 2))) ; no tail call elimination
(funcall fun)))
- (assert (verify-backtrace (lambda () (test #'optimized))
- (list '(/ 42 &rest)
- (list '(flet test) #'optimized))))
- (assert (verify-backtrace (lambda () (test #'not-optimized))
- (list '(/ 42 &rest)
- '((flet not-optimized))
- (list '(flet test) #'not-optimized)))))
+ (with-test (:fails-on '(or :alpha)) ; bug 346
+ (assert (verify-backtrace (lambda () (test #'optimized))
+ (list '(/ 42 &rest)
+ (list '(flet test) #'optimized)))))
+ (with-test (:fails-on '(or :alpha)) ; bug 346
+ (assert (verify-backtrace (lambda () (test #'not-optimized))
+ (list '(/ 42 &rest)
+ '((flet not-optimized))
+ (list '(flet test) #'not-optimized))))))
-#-(or alpha (and x86 linux)) ; bug 61
-(progn
- (defun throw-test ()
- (throw 'no-such-tag t))
- (assert (verify-backtrace #'throw-test '((throw-test)))))
+(with-test (:fails-on '(or (and :x86 :linux) :alpha))
+ (progn
+ (defun throw-test ()
+ (throw 'no-such-tag t))
+ (assert (verify-backtrace #'throw-test '((throw-test))))))
;;; test entry point handling in backtraces
@@ -225,104 +226,104 @@
(defbt 5 (&optional (opt (oops)))
(list opt))
-#-(and x86 linux)
-(macrolet ((with-details (bool &body body)
- `(let ((sb-debug:*show-entry-point-details* ,bool))
- ,@body)))
+(with-test (:fails-on '(and :x86 :linux))
+ (macrolet ((with-details (bool &body body)
+ `(let ((sb-debug:*show-entry-point-details* ,bool))
+ ,@body)))
- ;; TL-XEP
- (print :tl-xep)
- (with-details t
- (assert (verify-backtrace #'namestring
- '(((sb-c::tl-xep namestring) 0 ?)))))
- (with-details nil
- (assert (verify-backtrace #'namestring
- '((namestring)))))
+ ;; TL-XEP
+ (print :tl-xep)
+ (with-details t
+ (assert (verify-backtrace #'namestring
+ '(((sb-c::tl-xep namestring) 0 ?)))))
+ (with-details nil
+ (assert (verify-backtrace #'namestring
+ '((namestring)))))
- ;; &MORE-PROCESSOR
- (with-details t
- (assert (verify-backtrace (lambda () (bt.1.1 :key))
- '(((sb-c::&more-processor bt.1.1) &rest))))
- (assert (verify-backtrace (lambda () (bt.1.2 :key))
- '(((sb-c::&more-processor bt.1.2) &rest))))
- (assert (verify-backtrace (lambda () (bt.1.3 :key))
- '(((sb-c::&more-processor bt.1.3) &rest)))))
- (with-details nil
- (assert (verify-backtrace (lambda () (bt.1.1 :key))
- '((bt.1.1 :key))))
- (assert (verify-backtrace (lambda () (bt.1.2 :key))
- '((bt.1.2 &rest))))
- (assert (verify-backtrace (lambda () (bt.1.3 :key))
- '((bt.1.3 &rest)))))
+ ;; &MORE-PROCESSOR
+ (with-details t
+ (assert (verify-backtrace (lambda () (bt.1.1 :key))
+ '(((sb-c::&more-processor bt.1.1) &rest))))
+ (assert (verify-backtrace (lambda () (bt.1.2 :key))
+ '(((sb-c::&more-processor bt.1.2) &rest))))
+ (assert (verify-backtrace (lambda () (bt.1.3 :key))
+ '(((sb-c::&more-processor bt.1.3) &rest)))))
+ (with-details nil
+ (assert (verify-backtrace (lambda () (bt.1.1 :key))
+ '((bt.1.1 :key))))
+ (assert (verify-backtrace (lambda () (bt.1.2 :key))
+ '((bt.1.2 &rest))))
+ (assert (verify-backtrace (lambda () (bt.1.3 :key))
+ '((bt.1.3 &rest)))))
- ;; XEP
- (print :xep)
- (with-details t
- (assert (verify-backtrace #'bt.2.1
- '(((sb-c::xep bt.2.1) 0 ?))))
- (assert (verify-backtrace #'bt.2.2
- '(((sb-c::xep bt.2.2) &rest))))
- (assert (verify-backtrace #'bt.2.3
- '(((sb-c::xep bt.2.3) &rest)))))
- (with-details nil
- (assert (verify-backtrace #'bt.2.1
- '((bt.2.1))))
- (assert (verify-backtrace #'bt.2.2
- '((bt.2.2 &rest))))
- (assert (verify-backtrace #'bt.2.3
- '((bt.2.3 &rest)))))
+ ;; XEP
+ (print :xep)
+ (with-details t
+ (assert (verify-backtrace #'bt.2.1
+ '(((sb-c::xep bt.2.1) 0 ?))))
+ (assert (verify-backtrace #'bt.2.2
+ '(((sb-c::xep bt.2.2) &rest))))
+ (assert (verify-backtrace #'bt.2.3
+ '(((sb-c::xep bt.2.3) &rest)))))
+ (with-details nil
+ (assert (verify-backtrace #'bt.2.1
+ '((bt.2.1))))
+ (assert (verify-backtrace #'bt.2.2
+ '((bt.2.2 &rest))))
+ (assert (verify-backtrace #'bt.2.3
+ '((bt.2.3 &rest)))))
- ;; VARARGS-ENTRY
- (print :varargs-entry)
- (with-details t
- (assert (verify-backtrace #'bt.3.1
- '(((sb-c::varargs-entry bt.3.1) :key nil))))
- (assert (verify-backtrace #'bt.3.2
- '(((sb-c::varargs-entry bt.3.2) :key ?))))
- (assert (verify-backtrace #'bt.3.3
- '(((sb-c::varargs-entry bt.3.3) &rest)))))
- (with-details nil
- (assert (verify-backtrace #'bt.3.1
- '((bt.3.1 :key nil))))
- (assert (verify-backtrace #'bt.3.2
- '((bt.3.2 :key ?))))
- (assert (verify-backtrace #'bt.3.3
- '((bt.3.3 &rest)))))
+ ;; VARARGS-ENTRY
+ (print :varargs-entry)
+ (with-details t
+ (assert (verify-backtrace #'bt.3.1
+ '(((sb-c::varargs-entry bt.3.1) :key nil))))
+ (assert (verify-backtrace #'bt.3.2
+ '(((sb-c::varargs-entry bt.3.2) :key ?))))
+ (assert (verify-backtrace #'bt.3.3
+ '(((sb-c::varargs-entry bt.3.3) &rest)))))
+ (with-details nil
+ (assert (verify-backtrace #'bt.3.1
+ '((bt.3.1 :key nil))))
+ (assert (verify-backtrace #'bt.3.2
+ '((bt.3.2 :key ?))))
+ (assert (verify-backtrace #'bt.3.3
+ '((bt.3.3 &rest)))))
- ;; HAIRY-ARG-PROCESSOR
- (print :hairy-args-processor)
- (with-details t
- (assert (verify-backtrace #'bt.4.1
- '(((sb-c::hairy-arg-processor bt.4.1) ?))))
- (assert (verify-backtrace #'bt.4.2
- '(((sb-c::hairy-arg-processor bt.4.2) ?))))
- (assert (verify-backtrace #'bt.4.3
- '(((sb-c::hairy-arg-processor bt.4.3) &rest)))))
- (with-details nil
- (assert (verify-backtrace #'bt.4.1
- '((bt.4.1 ?))))
- (assert (verify-backtrace #'bt.4.2
- '((bt.4.2 ?))))
- (assert (verify-backtrace #'bt.4.3
- '((bt.4.3 &rest)))))
+ ;; HAIRY-ARG-PROCESSOR
+ (print :hairy-args-processor)
+ (with-details t
+ (assert (verify-backtrace #'bt.4.1
+ '(((sb-c::hairy-arg-processor bt.4.1) ?))))
+ (assert (verify-backtrace #'bt.4.2
+ '(((sb-c::hairy-arg-processor bt.4.2) ?))))
+ (assert (verify-backtrace #'bt.4.3
+ '(((sb-c::hairy-arg-processor bt.4.3) &rest)))))
+ (with-details nil
+ (assert (verify-backtrace #'bt.4.1
+ '((bt.4.1 ?))))
+ (assert (verify-backtrace #'bt.4.2
+ '((bt.4.2 ?))))
+ (assert (verify-backtrace #'bt.4.3
+ '((bt.4.3 &rest)))))
- ;; &OPTIONAL-PROCESSOR
- (print :optional-processor)
- (with-details t
- (assert (verify-backtrace #'bt.5.1
- '(((sb-c::&optional-processor bt.5.1)))))
- (assert (verify-backtrace #'bt.5.2
- '(((sb-c::&optional-processor bt.5.2) &rest))))
- (assert (verify-backtrace #'bt.5.3
- '(((sb-c::&optional-processor bt.5.3) &rest)))))
- (with-details nil
- (assert (verify-backtrace #'bt.5.1
- '((bt.5.1))))
- (assert (verify-backtrace #'bt.5.2
- '((bt.5.2 &rest))))
- (assert (verify-backtrace #'bt.5.3
- '((bt.5.3 &rest))))))
+ ;; &OPTIONAL-PROCESSOR
+ (print :optional-processor)
+ (with-details t
+ (assert (verify-backtrace #'bt.5.1
+ '(((sb-c::&optional-processor bt.5.1)))))
+ (assert (verify-backtrace #'bt.5.2
+ '(((sb-c::&optional-processor bt.5.2) &rest))))
+ (assert (verify-backtrace #'bt.5.3
+ '(((sb-c::&optional-processor bt.5.3) &rest)))))
+ (with-details nil
+ (assert (verify-backtrace #'bt.5.1
+ '((bt.5.1))))
+ (assert (verify-backtrace #'bt.5.2
+ '((bt.5.2 &rest))))
+ (assert (verify-backtrace #'bt.5.3
+ '((bt.5.3 &rest)))))))
;;;; test TRACE
@@ -336,14 +337,14 @@
(assert (search "TRACE-THIS" out))
(assert (search "returned OK" out)))
-#-(and ppc darwin)
-;;; bug 379
-(let ((out (with-output-to-string (*trace-output*)
- (trace trace-this :encapsulate nil)
- (assert (eq 'ok (trace-this)))
- (untrace))))
- (assert (search "TRACE-THIS" out))
- (assert (search "returned OK" out)))
+(with-test (:fails-on '(and :ppc :darwin))
+ ;;; bug 379
+ (let ((out (with-output-to-string (*trace-output*)
+ (trace trace-this :encapsulate nil)
+ (assert (eq 'ok (trace-this)))
+ (untrace))))
+ (assert (search "TRACE-THIS" out))
+ (assert (search "returned OK" out))))
;;;; test infinite error protection
@@ -385,6 +386,3 @@
(loop while (sb-thread:thread-alive-p thread)))
(disable-debugger)
-
-;;; success
-(quit :unix-status 104)
Index: define-compiler-macro.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/define-compiler-macro.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- define-compiler-macro.impure.lisp 14 Jul 2005 16:30:43 -0000 1.2
+++ define-compiler-macro.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -39,4 +39,3 @@
'(funcall #'square x)
nil)))
-(quit :unix-status 104)
Index: defstruct.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/defstruct.impure.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- defstruct.impure.lisp 14 Jul 2005 16:30:43 -0000 1.26
+++ defstruct.impure.lisp 26 Aug 2005 21:09:04 -0000 1.27
@@ -664,4 +664,3 @@
;;; success
(format t "~&/returning success~%")
-(quit :unix-status 104)
Index: deftype.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/deftype.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- deftype.impure.lisp 14 Jul 2005 16:30:43 -0000 1.2
+++ deftype.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -27,4 +27,3 @@
(assert (typep 1 'key))
(assert (typep 1 'key-singleton))
-(quit :unix-status 104)
Index: dump.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/dump.impure-cload.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- dump.impure-cload.lisp 14 Jul 2005 16:30:43 -0000 1.10
+++ dump.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.11
@@ -123,5 +123,3 @@
(assert (not (eq *base-string* *character-string*)))
(assert (typep *base-string* 'base-string))
(assert (typep *character-string* '(vector character))))
-
-(sb-ext:quit :unix-status 104) ; success
Index: dynamic-extent.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/dynamic-extent.impure.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- dynamic-extent.impure.lisp 14 Jul 2005 16:30:43 -0000 1.12
+++ dynamic-extent.impure.lisp 26 Aug 2005 21:09:04 -0000 1.13
@@ -188,4 +188,3 @@
(bdowning-2005-iv-16)
-(sb-ext:quit :unix-status 104)
Index: eucjp.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/eucjp.impure.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- eucjp.impure.lisp 14 Jul 2005 16:30:43 -0000 1.3
+++ eucjp.impure.lisp 26 Aug 2005 21:09:04 -0000 1.4
@@ -84,4 +84,3 @@
'list)
(coerce o 'list))))))
;;; success
-(sb-ext:quit :unix-status 104)
Index: eval.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/eval.impure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- eval.impure.lisp 14 Jul 2005 16:30:43 -0000 1.9
+++ eval.impure.lisp 26 Aug 2005 21:09:04 -0000 1.10
@@ -137,4 +137,3 @@
(eval '(progn (princ ".") (let ((x 42)) t) (princ "."))))))
;;; success
-(sb-ext:quit :unix-status 104)
Index: exhaust.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/exhaust.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- exhaust.impure.lisp 14 Jul 2005 16:30:43 -0000 1.5
+++ exhaust.impure.lisp 26 Aug 2005 21:09:04 -0000 1.6
@@ -71,4 +71,3 @@
(assert (= exhaust-count recurse-count *count*)))
;;; OK!
-(quit :unix-status 104)
Index: external-format.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/external-format.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- external-format.impure.lisp 2 Aug 2005 18:11:15 -0000 1.6
+++ external-format.impure.lisp 26 Aug 2005 21:09:04 -0000 1.7
@@ -39,7 +39,9 @@
(delete-file "external-format-test.txt")
#-sb-unicode
-(sb-ext:quit :unix-status 104)
+(progn
+ (test-util:report-test-status)
+ (sb-ext:quit :unix-status 104))
;;; Test UTF-8 writing and reading of 1, 2, 3 and 4 octet characters with
;;; all possible offsets. Tests for buffer edge bugs. fd-stream buffers are
@@ -159,4 +161,3 @@
(delete-file "external-format-test.txt")
-(sb-ext:quit :unix-status 104)
Index: float.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.impure.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- float.impure.lisp 19 Aug 2005 21:18:47 -0000 1.8
+++ float.impure.lisp 26 Aug 2005 21:09:04 -0000 1.9
@@ -119,6 +119,3 @@
(defun new-pu-label-from-pu-labels (array)
(setf (aref (the myarraytype array) 0)
sb-ext:double-float-positive-infinity))
-
-;;; success
-(quit :unix-status 104)
Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- float.pure.lisp 26 Aug 2005 19:33:47 -0000 1.20
+++ float.pure.lisp 26 Aug 2005 21:09:04 -0000 1.21
@@ -91,12 +91,13 @@
least-positive-double-float))
(assert (= 0.0 (scale-float 1.0 most-negative-fixnum)))
(assert (= 0.0d0 (scale-float 1.0d0 (1- most-negative-fixnum))))
-#-(or darwin) ;; bug 372
-(progn
- (assert (raises-error? (scale-float 1.0 most-positive-fixnum)
- floating-point-overflow))
- (assert (raises-error? (scale-float 1.0d0 (1+ most-positive-fixnum))
- floating-point-overflow)))
+
+(with-test (:fails-on '(or :darwin)) ;; bug 372
+ (progn
+ (assert (raises-error? (scale-float 1.0 most-positive-fixnum)
+ floating-point-overflow))
+ (assert (raises-error? (scale-float 1.0d0 (1+ most-positive-fixnum))
+ floating-point-overflow))))
;;; bug found by jsnell when nfroyd tried to implement better LOGAND
;;; type derivation.
Index: gc.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/gc.impure.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- gc.impure.lisp 11 Aug 2005 14:44:16 -0000 1.1
+++ gc.impure.lisp 26 Aug 2005 21:09:04 -0000 1.2
@@ -70,4 +70,3 @@
(setq gc-happend nil))
(assert (not gc-happend)))
-(sb-ext:quit :unix-status 104)
Index: gray-streams.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/gray-streams.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- gray-streams.impure.lisp 14 Jul 2005 16:30:43 -0000 1.6
+++ gray-streams.impure.lisp 26 Aug 2005 21:09:04 -0000 1.7
@@ -271,7 +271,3 @@
((eq byte :eof))
(write-byte byte our-bin-to-char-output))))
test-string))))
-
-;;;; Voila!
-
-(quit :unix-status 104) ; success
Index: hash.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/hash.impure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- hash.impure.lisp 14 Jul 2005 16:30:43 -0000 1.9
+++ hash.impure.lisp 26 Aug 2005 21:09:04 -0000 1.10
@@ -257,4 +257,3 @@
nil))))
;;; success
-(quit :unix-status 104)
Index: info.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/info.impure.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- info.impure.lisp 14 Jul 2005 16:30:43 -0000 1.3
+++ info.impure.lisp 26 Aug 2005 21:09:04 -0000 1.4
@@ -45,4 +45,3 @@
|#
;;; success
-(quit :unix-status 104)
Index: interface.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/interface.impure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- interface.impure.lisp 14 Jul 2005 16:30:43 -0000 1.4
+++ interface.impure.lisp 26 Aug 2005 21:09:04 -0000 1.5
@@ -44,4 +44,3 @@
(disassemble 'disassemble-closure)
;;;; success
-(sb-ext:quit :unix-status 104)
Index: load.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/load.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- load.impure.lisp 14 Jul 2005 16:30:44 -0000 1.5
+++ load.impure.lisp 26 Aug 2005 21:09:04 -0000 1.6
@@ -68,4 +68,3 @@
(assert (equal (merge-pathnames *tmp-filename*) *saved-load-pathname*)))
(delete-file *tmp-filename*))))
-(quit :unix-status 104)
Index: loop.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/loop.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- loop.impure.lisp 14 Jul 2005 16:30:44 -0000 1.2
+++ loop.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -32,4 +32,3 @@
(function string<)))))
;;; success
-(quit :unix-status 104)
Index: map-tests.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/map-tests.impure.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- map-tests.impure.lisp 14 Jul 2005 16:30:44 -0000 1.5
+++ map-tests.impure.lisp 26 Aug 2005 21:09:04 -0000 1.6
@@ -109,4 +109,3 @@
:arg-types (list list vector))
;;; success
-(quit :unix-status 104)
Index: mop-3.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop-3.impure-cload.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- mop-3.impure-cload.lisp 9 Aug 2005 13:57:53 -0000 1.2
+++ mop-3.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -90,5 +90,3 @@
(assert (equalp (list (testgf08 5.0) (testgf08 17))
'((real) #(integer real))))
|#
-
-(sb-ext:quit :unix-status 104)
Index: mop-4.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop-4.impure-cload.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- mop-4.impure-cload.lisp 6 Aug 2005 11:31:19 -0000 1.1
+++ mop-4.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.2
@@ -92,5 +92,3 @@
;;; from mop.tst in clisp's test suite
|#
-
-(sb-ext:quit :unix-status 104)
Index: mop-5.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop-5.impure-cload.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- mop-5.impure-cload.lisp 6 Aug 2005 11:31:19 -0000 1.1
+++ mop-5.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.2
@@ -51,5 +51,3 @@
(defparameter *counter* (make-counter :start 666))
(assert (eq (funcall *counter*) *counter*))
-
-(sb-ext:quit :unix-status 104)
Index: mop.impure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure-cload.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- mop.impure-cload.lisp 14 Jul 2005 16:30:44 -0000 1.2
+++ mop.impure-cload.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -57,6 +57,3 @@
(eval '(make-instance 'person :name t))
-
-;;; success
-(sb-ext:quit :unix-status 104)
\ No newline at end of file
Index: mop.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- mop.impure.lisp 14 Jul 2005 16:30:44 -0000 1.25
+++ mop.impure.lisp 26 Aug 2005 21:09:04 -0000 1.26
@@ -430,4 +430,3 @@
(assert (eq (slot-value (make-instance 'extra-initarg) 'slot) 'extra))
;;;; success
-(sb-ext:quit :unix-status 104)
Index: package-locks.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/package-locks.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- package-locks.impure.lisp 14 Jul 2005 16:30:44 -0000 1.6
+++ package-locks.impure.lisp 26 Aug 2005 21:09:04 -0000 1.7
@@ -478,4 +478,3 @@
package-lock-violation))
;;; WOOT! Done.
-(sb-ext:quit :unix-status 104)
Index: packages.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/packages.impure.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- packages.impure.lisp 14 Jul 2005 16:30:44 -0000 1.3
+++ packages.impure.lisp 26 Aug 2005 21:09:04 -0000 1.4
@@ -22,4 +22,3 @@
(package-error (c) (princ c))
(:no-error (&rest args) (error "(EXPORT :FOO) returned ~S" args)))
-(sb-ext:quit :unix-status 104)
Index: pathnames.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pathnames.impure.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- pathnames.impure.lisp 3 Aug 2005 11:36:42 -0000 1.26
+++ pathnames.impure.lisp 26 Aug 2005 21:09:04 -0000 1.27
@@ -358,4 +358,3 @@
actual))
;;;; success
-(quit :unix-status 104)
Index: pprint.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pprint.impure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- pprint.impure.lisp 14 Jul 2005 16:30:44 -0000 1.9
+++ pprint.impure.lisp 26 Aug 2005 21:09:04 -0000 1.10
@@ -202,4 +202,3 @@
(write '#1=(#2=(#2# . #3=(#1# . #3#))) :stream s)))))
;;; success
-(quit :unix-status 104)
Index: print.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- print.impure.lisp 14 Jul 2005 16:30:44 -0000 1.32
+++ print.impure.lisp 26 Aug 2005 21:09:04 -0000 1.33
@@ -338,4 +338,3 @@
(assert (string= (format nil "~@F" 1.23) "+1.23"))
;;; success
-(quit :unix-status 104)
Index: properties.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/properties.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- properties.impure.lisp 14 Jul 2005 16:30:44 -0000 1.2
+++ properties.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -33,4 +33,3 @@
(assert (not (cdr *nil-that-the-compiler-cannot-constant-fold*)))
;;; success
-(quit :unix-status 104)
Index: reader.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/reader.impure.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- reader.impure.lisp 14 Jul 2005 16:30:44 -0000 1.10
+++ reader.impure.lisp 26 Aug 2005 21:09:04 -0000 1.11
@@ -103,4 +103,3 @@
(assert (eq 'a (read (make-instance 'my-in-stream :last-char nil))))
;;; success
-(quit :unix-status 104)
Index: seq.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- seq.impure.lisp 14 Jul 2005 16:30:44 -0000 1.27
+++ seq.impure.lisp 26 Aug 2005 21:09:04 -0000 1.28
@@ -996,4 +996,3 @@
until (= i sb-vm:n-word-bits))
;;; success
-(sb-ext:quit :unix-status 104)
Index: setf.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/setf.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- setf.impure.lisp 14 Jul 2005 16:30:44 -0000 1.6
+++ setf.impure.lisp 26 Aug 2005 21:09:04 -0000 1.7
@@ -52,4 +52,3 @@
(assert (eq fun (macro-function 'nothing-at-all nil))))
;;; success
-(quit :unix-status 104)
Index: smoke.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/smoke.impure.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- smoke.impure.lisp 14 Jul 2005 16:30:44 -0000 1.12
+++ smoke.impure.lisp 26 Aug 2005 21:09:04 -0000 1.13
@@ -73,4 +73,3 @@
(assert (equal (funcall fn 1 2 3) '(1 2 3))))
;;; success
-(quit :unix-status 104)
Index: static-alloc.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/static-alloc.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- static-alloc.impure.lisp 14 Jul 2005 16:30:44 -0000 1.2
+++ static-alloc.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3
@@ -11,4 +11,3 @@
saps
(mapcar #'sb-sys:vector-sap vectors)))))
-(quit :unix-status 104)
Index: stream.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stream.impure.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- stream.impure.lisp 14 Jul 2005 16:30:44 -0000 1.14
+++ stream.impure.lisp 26 Aug 2005 21:09:04 -0000 1.15
@@ -180,4 +180,3 @@
(loop for size from 2 to 40 do (bin-stream-test :size size :type 'signed-byte))
;;; success
-(quit :unix-status 104)
Index: threads.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/threads.impure.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- threads.impure.lisp 26 Aug 2005 19:01:37 -0000 1.24
+++ threads.impure.lisp 26 Aug 2005 21:09:04 -0000 1.25
@@ -434,4 +434,3 @@
;; overall exit status is 0, not 104
(sleep 2)
-(sb-ext:quit :unix-status 104)
Index: type.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/type.impure.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- type.impure.lisp 14 Jul 2005 16:30:45 -0000 1.36
+++ type.impure.lisp 26 Aug 2005 21:09:04 -0000 1.37
@@ -430,4 +430,3 @@
(assert-nil-t (subtypep `(not ,t1) `(not ,t2))))
;;; success
-(quit :unix-status 104)
Index: walk.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/walk.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- walk.impure.lisp 14 Jul 2005 16:30:45 -0000 1.6
+++ walk.impure.lisp 26 Aug 2005 21:09:04 -0000 1.7
@@ -968,5 +968,4 @@
;;; Old PCL hung up on this.
(defmethod #:foo ()
(defun #:bar ()))
-
-(quit :unix-status 104)
+
\ No newline at end of file
|