/[gcl]/gcl/ansi-tests/cons-test-17.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-17.lsp

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

revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 191  Line 191 
191                         (eqt x y))))                         (eqt x y))))
192    (3 . A))    (3 . A))
193    
194    (deftest rassoc.error.1
195      (classify-error (rassoc))
196      program-error)
197    
198    (deftest rassoc.error.2
199      (classify-error (rassoc nil))
200      program-error)
201    
202    (deftest rassoc.error.3
203      (classify-error (rassoc nil nil :bad t))
204      program-error)
205    
206    (deftest rassoc.error.4
207      (classify-error (rassoc nil nil :key))
208      program-error)
209    
210    (deftest rassoc.error.5
211      (classify-error (rassoc nil nil 1 1))
212      program-error)
213    
214    (deftest rassoc.error.6
215      (classify-error (rassoc nil nil :bad t :allow-other-keys nil))
216      program-error)
217    
218    
219  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
220  ;;; rassoc-if  ;;; rassoc-if
221    
# Line 229  Line 254 
254                 (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))                 (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))
255    (e))    (e))
256    
257    (deftest rassoc-if.error.1
258      (classify-error (rassoc-if))
259      program-error)
260    
261    (deftest rassoc-if.error.2
262      (classify-error (rassoc-if #'null))
263      program-error)
264    
265    (deftest rassoc-if.error.3
266      (classify-error (rassoc-if #'null nil :bad t))
267      program-error)
268    
269    (deftest rassoc-if.error.4
270      (classify-error (rassoc-if #'null nil :key))
271      program-error)
272    
273    (deftest rassoc-if.error.5
274      (classify-error (rassoc-if #'null nil 1 1))
275      program-error)
276    
277    (deftest rassoc-if.error.6
278      (classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil))
279      program-error)
280    
281  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
282  ;;; rassoc-if-not  ;;; rassoc-if-not
283    
# Line 267  Line 316 
316                     (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))                     (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))
317    (e))    (e))
318    
319    (deftest rassoc-if-not.error.1
320      (classify-error (rassoc-if-not))
321      program-error)
322    
323    (deftest rassoc-if-not.error.2
324      (classify-error (rassoc-if-not #'null))
325      program-error)
326    
327    (deftest rassoc-if-not.error.3
328      (classify-error (rassoc-if-not #'null nil :bad t))
329      program-error)
330    
331    (deftest rassoc-if-not.error.4
332      (classify-error (rassoc-if-not #'null nil :key))
333      program-error)
334    
335    (deftest rassoc-if-not.error.5
336      (classify-error (rassoc-if-not #'null nil 1 1))
337      program-error)
338    
339    (deftest rassoc-if-not.error.6
340      (classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil))
341      program-error)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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