/[gcl]/gcl/ansi-tests/apropos.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/apropos.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sun Dec 12 23:22:22 2004 UTC revision 1.2 by pfdietz, Mon Dec 13 13:25:18 2004 UTC
# Line 48  Line 48 
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26