Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Dec 13 13:25:18 2004 UTC | revision 1.3 by pfdietz, Sun Dec 26 15:57:29 2004 UTC | |
---|---|---|
# | Line 62 | Line 62 |
62 | (notnot (search "CAR" s :test #'string-equal))) | (notnot (search "CAR" s :test #'string-equal))) |
63 | t) | t) |
64 | ||
65 | (deftest apropos.8 | |
66 | (let ((s (with-output-to-string | |
67 | (*standard-output*) | |
68 | (assert (null (multiple-value-list (apropos "CAR" nil))))))) | |
69 | (notnot (search "CAR" s :test #'string-equal))) | |
70 | t) | |
71 | ||
72 | ;;; Error tests | ;;; Error tests |
73 | ||
74 | (deftest apropos.error.1 | (deftest apropos.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |