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

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

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

revision 1.3 by pfdietz, Fri Oct 4 02:51:04 2002 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:51 2003 UTC
# Line 83  Line 83 
83     ("ABCDEF" "ABCDEF" "ABCDEf")     ("ABCDEF" "ABCDEF" "ABCDEf")
84     ("ABCDEF" "ABCDEF"))     ("ABCDEF" "ABCDEF"))
85    "ABCDEF")    "ABCDEF")
86    
87    ;;; Error cases
88    
89    (deftest string-capitalize.error.1
90      (classify-error (string-capitalize))
91      program-error)
92    
93    (deftest string-capitalize.error.2
94      (classify-error (string-capitalize (copy-seq "abc") :bad t))
95      program-error)
96    
97    (deftest string-capitalize.error.3
98      (classify-error (string-capitalize (copy-seq "abc") :start))
99      program-error)
100    
101    (deftest string-capitalize.error.4
102      (classify-error (string-capitalize (copy-seq "abc") :bad t
103                                          :allow-other-keys nil))
104      program-error)
105    
106    (deftest string-capitalize.error.5
107      (classify-error (string-capitalize (copy-seq "abc") :end))
108      program-error)
109    
110    (deftest string-capitalize.error.6
111      (classify-error (string-capitalize (copy-seq "abc") 1 2))
112      program-error)

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

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