From 751e08955647b28ba9d6b4693d599bcc9fda31ab Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 20 Feb 2011 10:30:22 +0000 Subject: [PATCH] 1.0.46.5: split (:BACKTRACE :MISC) test into smaller pieces Nuff said. --- tests/debug.impure.lisp | 35 ++++++++++++++++++----------------- version.lisp-expr | 2 +- 2 files changed, 19 insertions(+), 18 deletions(-) diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp index 3204f72..29e0d11 100644 --- a/tests/debug.impure.lisp +++ b/tests/debug.impure.lisp @@ -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))))) diff --git a/version.lisp-expr b/version.lisp-expr index 3445334..2095a60 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4