/[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.9 by pfdietz, Thu Feb 20 23:57:53 2003 UTC revision 1.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 283  Line 283 
283    (classify-error (rassoc nil nil :bad t :allow-other-keys nil))    (classify-error (rassoc nil nil :bad t :allow-other-keys nil))
284    program-error)    program-error)
285    
286    (deftest rassoc.error.7
287      (classify-error (rassoc 'a '((b . a)(c . d)) :test #'identity))
288      program-error)
289    
290    (deftest rassoc.error.8
291      (classify-error (rassoc 'a '((b . a)(c . d)) :test-not #'identity))
292      program-error)
293    
294    (deftest rassoc.error.9
295      (classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons))
296      program-error)
297    
298    
299  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
300  ;;; rassoc-if  ;;; rassoc-if
# Line 397  Line 409 
409    (classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil))    (classify-error (rassoc-if #'null nil :bad t :allow-other-keys nil))
410    program-error)    program-error)
411    
412    (deftest rassoc-if.error.7
413      (classify-error (rassoc-if #'cons '((a . b)(c . d))))
414      program-error)
415    
416    (deftest rassoc-if.error.8
417      (classify-error (rassoc-if #'car '((a . b)(c . d))))
418      type-error)
419    
420    (deftest rassoc-if.error.9
421      (classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'cons))
422      program-error)
423    
424    (deftest rassoc-if.error.10
425      (classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car))
426      type-error)
427    
428  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
429  ;;; rassoc-if-not  ;;; rassoc-if-not
430    
# Line 512  Line 540 
540    
541  (deftest rassoc-if-not.error.6  (deftest rassoc-if-not.error.6
542    (classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil))    (classify-error (rassoc-if-not #'null nil :bad t :allow-other-keys nil))
   program-error)  
543      program-error)
544    
545    (deftest rassoc-if-not.error.7
546      (classify-error (rassoc-if-not #'cons '((a . b)(c . d))))
547      program-error)
548    
549    (deftest rassoc-if-not.error.8
550      (classify-error (rassoc-if-not #'car '((a . b)(c . d))))
551      type-error)
552    
553    (deftest rassoc-if-not.error.9
554      (classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'cons))
555      program-error)
556    
557    (deftest rassoc-if-not.error.10
558      (classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car))
559      type-error)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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