From bcc07bc6ffd33dcc6191a05e293038b084c99e0d Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Mon, 22 Feb 2016 10:16:58 +0100 Subject: [PATCH] tests: Minor cleanup in DOCUMENTATION tests --- tests/clos.impure.lisp | 2 +- tests/interface.pure.lisp | 11 +++++++---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp index c6051e473..8b0d115fa 100644 --- a/tests/clos.impure.lisp +++ b/tests/clos.impure.lisp @@ -579,7 +579,7 @@ ;;; DOCUMENTATION's argument-precedence-order wasn't being faithfully ;;; preserved through the bootstrap process until sbcl-0.7.8.39. ;;; (thanks to Gerd Moellmann) -(with-test (:name :documentation-argument-precedence-order) +(with-test (:name (documentation :argument-precedence-order)) (defun foo022 () "Documentation" t) diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp index 1bfb80eab..13a0c2c9e 100644 --- a/tests/interface.pure.lisp +++ b/tests/interface.pure.lisp @@ -122,10 +122,13 @@ :timeout))))) ;;; DOCUMENTATION should return nil, not signal slot-unbound -(documentation 'fixnum 'type) -(documentation 'class 'type) -(documentation (find-class 'class) 'type) -(documentation 'foo 'structure) +(with-test (:name (documentation :return nil)) + (flet ((test (thing doc-type) + (assert (eq nil (documentation thing doc-type))))) + (test 'fixnum 'type) + (test 'class 'type) + (test (find-class 'class) 'type) + (test 'foo 'structure))) ;;; DECODE-UNIVERSAL-TIME should accept second-resolution time-zones. (macrolet ((test (ut time-zone list) -- 2.11.4.GIT