X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=285ddcb572006fba41b526764ba540784ddb3dd7;hb=be66f39b89fd11c0abea5697a6e666447df988a8;hp=2a27b35b50b7b8e34cb371e80ab2b0164aaac637;hpb=ed3295bc583cd14104130441e9ff1ad40fa5e484;p=sbcl.git diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp index 2a27b35..285ddcb 100644 --- a/tests/interface.pure.lisp +++ b/tests/interface.pure.lisp @@ -57,15 +57,17 @@ (assert (not (special-operator-p 'declare))) ;;; WITH-TIMEOUT should accept more than one form in its body. -(handler-bind ((sb-ext:timeout #'continue)) - (sb-ext:with-timeout 3 - (sleep 2) - (sleep 2))) +(with-test (:name :with-timeout-forms) + (handler-bind ((sb-ext:timeout #'continue)) + (sb-ext:with-timeout 3 + (sleep 2) + (sleep 2)))) ;;; DOCUMENTATION should return nil, not signal slot-unbound (documentation 'fixnum 'type) (documentation 'class 'type) (documentation (find-class 'class) 'type) +(documentation 'foo 'structure) ;;; DECODE-UNIVERSAL-TIME should accept second-resolution time-zones. (macrolet ((test (ut time-zone list)