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

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

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

revision 1.4 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 509  Line 509 
509    
510  ;;; Error tests  ;;; Error tests
511    
512  (deftest find-if-error.1  (deftest find-if.error.1
513    (classify-error (find-if #'null 'b))    (classify-error (find-if #'null 'b))
514    type-error)    type-error)
515    
516  (deftest find-if-error.2  (deftest find-if.error.2
517    (classify-error (find-if #'identity 10))    (classify-error (find-if #'identity 10))
518    type-error)    type-error)
519    
520  (deftest find-if-error.3  (deftest find-if.error.3
521    (classify-error (find-if '1+ 1.4))    (classify-error (find-if '1+ 1.4))
522    type-error)    type-error)
523    
524  (deftest find-if-error.4  (deftest find-if.error.4
525    (classify-error (find-if 'null '(a b c . d)))    (classify-error (find-if 'null '(a b c . d)))
526    type-error)    type-error)
527    
528    (deftest find-if.error.5
529      (classify-error (find-if))
530      program-error)
531    
532    (deftest find-if.error.6
533      (classify-error (find-if #'null))
534      program-error)
535    
536    (deftest find-if.error.7
537      (classify-error (find-if #'null nil :bad t))
538      program-error)
539    
540    (deftest find-if.error.8
541      (classify-error (find-if #'null nil :bad t :allow-other-keys nil))
542      program-error)
543    
544    (deftest find-if.error.9
545      (classify-error (find-if #'null nil 1 1))
546      program-error)
547    
548    (deftest find-if.error.10
549      (classify-error (find-if #'null nil :key))
550      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