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

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

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

revision 1.5 by pfdietz, Fri Jan 3 04:28:38 2003 UTC revision 1.6 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 743  Line 743 
743    
744  ;;; Error tests  ;;; Error tests
745    
746  (deftest find-error.1  (deftest find.error.1
747    (classify-error (find 'a 'b))    (classify-error (find 'a 'b))
748    type-error)    type-error)
749    
750  (deftest find-error.2  (deftest find.error.2
751    (classify-error (find 'a 10))    (classify-error (find 'a 10))
752    type-error)    type-error)
753    
754  (deftest find-error.3  (deftest find.error.3
755    (classify-error (find 'a 1.4))    (classify-error (find 'a 1.4))
756    type-error)    type-error)
757    
758  (deftest find-error.4  (deftest find.error.4
759    (classify-error (find 'e '(a b c . d)))    (classify-error (find 'e '(a b c . d)))
760    type-error)    type-error)
761    
762    (deftest find.error.5
763      (classify-error (find))
764      program-error)
765    
766    (deftest find.error.6
767      (classify-error (find 'a))
768      program-error)
769    
770    (deftest find.error.7
771      (classify-error (find 'a nil :bad t))
772      program-error)
773    
774    (deftest find.error.8
775      (classify-error (find 'a nil :bad t :allow-other-keys nil))
776      program-error)
777    
778    (deftest find.error.9
779      (classify-error (find 'a nil 1 1))
780      program-error)
781    
782    (deftest find.error.10
783      (classify-error (find 'a nil :key))
784      program-error)

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

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