/[gcl]/gcl/ansi-tests/find-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-if-not.lsp

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

revision 1.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 486  Line 486 
486    
487  ;;; Error tests  ;;; Error tests
488    
489  (deftest find-if-not-error.1  (deftest find-if-not.error.1
490    (classify-error (find-if-not #'null 'b))    (classify-error (find-if-not #'null 'b))
491    type-error)    type-error)
492    
493  (deftest find-if-not-error.2  (deftest find-if-not.error.2
494    (classify-error (find-if-not #'identity 10))    (classify-error (find-if-not #'identity 10))
495    type-error)    type-error)
496    
497  (deftest find-if-not-error.3  (deftest find-if-not.error.3
498    (classify-error (find-if-not '1+ 1.4))    (classify-error (find-if-not '1+ 1.4))
499    type-error)    type-error)
500    
501  (deftest find-if-not-error.4  (deftest find-if-not.error.4
502    (classify-error (find-if-not 'identity '(a b c . d)))    (classify-error (find-if-not 'identity '(a b c . d)))
503    type-error)    type-error)
504    
505    (deftest find-if-not.error.5
506      (classify-error (find-if-not))
507      program-error)
508    
509    (deftest find-if-not.error.6
510      (classify-error (find-if-not #'null))
511      program-error)
512    
513    (deftest find-if-not.error.7
514      (classify-error (find-if-not #'null nil :bad t))
515      program-error)
516    
517    (deftest find-if-not.error.8
518      (classify-error (find-if-not #'null nil :bad t :allow-other-keys nil))
519      program-error)
520    
521    (deftest find-if-not.error.9
522      (classify-error (find-if-not #'null nil 1 1))
523      program-error)
524    
525    (deftest find-if-not.error.10
526      (classify-error (find-if-not #'null nil :key))
527      program-error)

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

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