/[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.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.5 by pfdietz, Tue Jan 14 14:01:20 2003 UTC
# Line 191  Line 191 
191                         (eqt x y))))                         (eqt x y))))
192    (3 . A))    (3 . A))
193    
194    (deftest rassoc-26
195      (rassoc 'b '((1 . a) (2 . b) (3 . c)) :bad t :allow-other-keys t)
196      (2 . b))
197    
198    (deftest rassoc-27
199      (rassoc 'b '((1 . a) (2 . b) (3 . c)) :allow-other-keys t :bad t)
200      (2 . b))
201    
202    (deftest rassoc-28
203      (rassoc 'a '((1 . a) (2 . b) (3 . c)) :allow-other-keys t :bad t
204              :test-not #'eql)
205      (2 . b))
206    
207  (deftest rassoc.error.1  (deftest rassoc.error.1
208    (classify-error (rassoc))    (classify-error (rassoc))
209    program-error)    program-error)
# Line 254  Line 267 
267                 (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))                 (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))
268    (e))    (e))
269    
270    (deftest rassoc-if-26
271      (rassoc-if #'null '((1 . a) (2) (3 . c)) :bad t :allow-other-keys t)
272      (2))
273    
274    (deftest rassoc-if-27
275      (rassoc-if #'null '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t)
276      (2))
277    
278    (deftest rassoc-if-28
279      (rassoc-if #'identity '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t
280              :key 'not)
281      (2))
282    
283  (deftest rassoc-if.error.1  (deftest rassoc-if.error.1
284    (classify-error (rassoc-if))    (classify-error (rassoc-if))
285    program-error)    program-error)
# Line 316  Line 342 
342                     (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))                     (rev-assoc-list '((a . b) nil (c . d) (nil . e) (f . g))))
343    (e))    (e))
344    
345    (deftest rassoc-if-not-26
346      (rassoc-if-not #'identity '((1 . a) (2) (3 . c)) :bad t :allow-other-keys t)
347      (2))
348    
349    (deftest rassoc-if-not-27
350      (rassoc-if-not #'values '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t)
351      (2))
352    
353    (deftest rassoc-if-not-28
354      (rassoc-if-not #'not '((1 . a) (2) (3 . c)) :allow-other-keys t :bad t
355              :key 'not)
356      (2))
357    
358  (deftest rassoc-if-not.error.1  (deftest rassoc-if-not.error.1
359    (classify-error (rassoc-if-not))    (classify-error (rassoc-if-not))
360    program-error)    program-error)

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

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