48 |
(assert (search "APROPOS" result :test #'string-equal)))) |
(assert (search "APROPOS" result :test #'string-equal)))) |
49 |
t) |
t) |
50 |
|
|
51 |
|
(deftest apropos.6 |
52 |
|
(let ((s (with-output-to-string |
53 |
|
(*standard-output*) |
54 |
|
(assert (null (multiple-value-list (apropos "CAR" "CL"))))))) |
55 |
|
(notnot (search "CAR" s :test #'string-equal))) |
56 |
|
t) |
57 |
|
|
58 |
|
(deftest apropos.7 |
59 |
|
(let ((s (with-output-to-string |
60 |
|
(*standard-output*) |
61 |
|
(assert (null (multiple-value-list (apropos "CAR" :|CL|))))))) |
62 |
|
(notnot (search "CAR" s :test #'string-equal))) |
63 |
|
t) |
64 |
|
|
65 |
;;; Error tests |
;;; Error tests |
66 |
|
|
67 |
(deftest apropos.error.1 |
(deftest apropos.error.1 |