/[gcl]/gcl/ansi-tests/string-upcase.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-upcase.lsp

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

revision 1.1 by pfdietz, Tue Oct 1 12:51:10 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 81  Line 81 
81    "abcde")    "abcde")
82    
83        
84    ;;; Error cases
85    
86    (deftest string-upcase.error.1
87      (classify-error (string-upcase))
88      program-error)
89    
90    (deftest string-upcase.error.2
91      (classify-error (string-upcase (copy-seq "abc") :bad t))
92      program-error)
93    
94    (deftest string-upcase.error.3
95      (classify-error (string-upcase (copy-seq "abc") :start))
96      program-error)
97    
98    (deftest string-upcase.error.4
99      (classify-error (string-upcase (copy-seq "abc") :bad t
100                                          :allow-other-keys nil))
101      program-error)
102    
103    (deftest string-upcase.error.5
104      (classify-error (string-upcase (copy-seq "abc") :end))
105      program-error)
106    
107    (deftest string-upcase.error.6
108      (classify-error (string-upcase (copy-seq "abc") 1 2))
109      program-error)

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

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