From: Nikodemus S. <nik...@ra...> - 2011-02-20 10:30:28
|
1.0.46.5: split (:BACKTRACE :MISC) test into smaller pieces Nuff said. Index: version.lisp-expr =================================================================== RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v retrieving revision 1.5189 diff -u -r1.5189 version.lisp-expr --- version.lisp-expr 20 Feb 2011 10:27:39 -0000 1.5189 +++ version.lisp-expr 20 Feb 2011 10:29:43 -0000 @@ -20,4 +20,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.46.4" +"1.0.46.5" Index: tests/debug.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v retrieving revision 1.56 diff -u -r1.56 debug.impure.lisp --- tests/debug.impure.lisp 20 Feb 2011 10:12:03 -0000 1.56 +++ tests/debug.impure.lisp 20 Feb 2011 10:29:44 -0000 @@ -265,17 +265,17 @@ (assert (verify-backtrace (lambda () (bug-354 354)) '((bug-354 354))))) ;;; FIXME: This test really should be broken into smaller pieces -(with-test (:name (:backtrace :misc) - :fails-on '(and :x86 (or :sunos))) - (write-line "//tl-xep") +(with-test (:name (:backtrace :tl-xep) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace #'namestring '(((sb-c::tl-xep namestring) 0 ?))))) (with-details nil (assert (verify-backtrace #'namestring - '((namestring))))) + '((namestring)))))) - ;; &MORE-PROCESSOR +(with-test (:name (:backtrace :more-processor) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace (lambda () (bt.1.1 :key)) '(((sb-c::&more-processor bt.1.1) &rest)))) @@ -289,10 +289,10 @@ (assert (verify-backtrace (lambda () (bt.1.2 :key)) '((bt.1.2 &rest)))) (assert (verify-backtrace (lambda () (bt.1.3 :key)) - '((bt.1.3 &rest))))) + '((bt.1.3 &rest)))))) - ;; XEP - (write-line "//xep") +(with-test (:name (:backtrace :xep) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace #'bt.2.1 '(((sb-c::xep bt.2.1) 0 ?)))) @@ -306,10 +306,10 @@ (assert (verify-backtrace #'bt.2.2 '((bt.2.2 &rest)))) (assert (verify-backtrace #'bt.2.3 - '((bt.2.3 &rest))))) + '((bt.2.3 &rest)))))) - ;; VARARGS-ENTRY - (write-line "//varargs-entry") +(with-test (:name (:backtrace :varargs-entry) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace #'bt.3.1 '(((sb-c::varargs-entry bt.3.1) :key nil)))) @@ -323,10 +323,10 @@ (assert (verify-backtrace #'bt.3.2 '((bt.3.2 :key ?)))) (assert (verify-backtrace #'bt.3.3 - '((bt.3.3 &rest))))) + '((bt.3.3 &rest)))))) - ;; HAIRY-ARG-PROCESSOR - (write-line "//hairy-args-processor") +(with-test (:name (:backtrace :hairy-args-processor) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace #'bt.4.1 '(((sb-c::hairy-arg-processor bt.4.1) ?)))) @@ -340,10 +340,11 @@ (assert (verify-backtrace #'bt.4.2 '((bt.4.2 ?)))) (assert (verify-backtrace #'bt.4.3 - '((bt.4.3 &rest))))) + '((bt.4.3 &rest)))))) - ;; &OPTIONAL-PROCESSOR - (write-line "//optional-processor") + +(with-test (:name (:backtrace :optional-processor) + :fails-on '(and :x86 (or :sunos))) (with-details t (assert (verify-backtrace #'bt.5.1 '(((sb-c::&optional-processor bt.5.1))))) |