Commit 922065e4 authored by pfdietz's avatar pfdietz

More apropos tests (different package designators)

parent 45d609d2
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment