From 922065e4a05dae3303cc7adab30e1434af4e0866 Mon Sep 17 00:00:00 2001 From: pfdietz Date: Mon, 13 Dec 2004 13:25:18 +0000 Subject: [PATCH] More apropos tests (different package designators) --- ansi-tests/apropos.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ansi-tests/apropos.lsp b/ansi-tests/apropos.lsp index 0f5c07a..baec665 100644 --- a/ansi-tests/apropos.lsp +++ b/ansi-tests/apropos.lsp @@ -48,6 +48,20 @@ (assert (search "APROPOS" result :test #'string-equal)))) t) +(deftest apropos.6 + (let ((s (with-output-to-string + (*standard-output*) + (assert (null (multiple-value-list (apropos "CAR" "CL"))))))) + (notnot (search "CAR" s :test #'string-equal))) + t) + +(deftest apropos.7 + (let ((s (with-output-to-string + (*standard-output*) + (assert (null (multiple-value-list (apropos "CAR" :|CL|))))))) + (notnot (search "CAR" s :test #'string-equal))) + t) + ;;; Error tests (deftest apropos.error.1 -- GitLab