Commit 0de3e0e6 authored by pfdietz's avatar pfdietz

Added apropos.8

parent 608adaf1
......@@ -62,6 +62,13 @@
(notnot (search "CAR" s :test #'string-equal)))
t)
(deftest apropos.8
(let ((s (with-output-to-string
(*standard-output*)
(assert (null (multiple-value-list (apropos "CAR" nil)))))))
(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