X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.pure.lisp;h=f329d031c80b504b548cd9c431e7c85854be5eb1;hb=ba02429b75951fc407be01c44fdcb01ff2908707;hp=76171e0ff5b2509562b3fc5f23756655c7dc6c8f;hpb=648b48d2406f6d6f2bf341bf8ed350aac85398d0;p=sbcl.git

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 76171e0..f329d03 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -44,6 +44,7 @@
 
 ;;; support for DESCRIBE tests
 (defstruct to-be-described a b)
+(defclass forward-describe-class (forward-describe-ref) (a))
 
 ;;; DESCRIBE should run without signalling an error.
 (describe (make-to-be-described))
@@ -69,7 +70,8 @@
 		 #'car #'make-to-be-described (lambda (x) (+ x 11))
 		 (constantly 'foo) #'(setf to-be-described-a)
 		 #'describe-object (find-class 'to-be-described)
-		 (find-class 'cons)))
+		 (find-class 'forward-describe-class)
+		 (find-class 'forward-describe-ref) (find-class 'cons)))
   (let ((s (with-output-to-string (s)
 	     (write-char #\x s)
 	     (describe i s))))
@@ -97,3 +99,8 @@
 ;;; DECLARE should not be a special operator
 (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)))