/[gcl]/gcl/ansi-tests/search-list.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-list.lsp

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 134  Line 134 
134            collect pat))            collect pat))
135    nil)    nil)
136    
137    ;;; Error cases
138    
139    (deftest search.error.1
140      (classify-error (search))
141      program-error)
142    
143    (deftest search.error.2
144      (classify-error (search "a"))
145      program-error)
146    
147    (deftest search.error.3
148      (classify-error (search "a" "a" :key))
149      program-error)
150    
151    (deftest search.error.4
152      (classify-error (search "a" "a" 'bad t))
153      program-error)
154    
155    (deftest search.error.5
156      (classify-error (search "a" "a" 'bad t :allow-other-keys nil))
157      program-error)
158    
159    (deftest search.error.6
160      (classify-error (search "a" "a" 1 2))
161      program-error)
162    
163    

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