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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 59  Line 59 
59     ("ABCDEF" "ABCDEF" "ABCDeF" "ABCDef")     ("ABCDEF" "ABCDEF" "ABCDeF" "ABCDef")
60     ("ABCDEF" "ABCDEF" "ABCDEf")     ("ABCDEF" "ABCDEF" "ABCDEf")
61     ("ABCDEF" "ABCDEF")))     ("ABCDEF" "ABCDEF")))
62    
63    ;;; Error cases
64    
65    (deftest nstring-capitalize.error.1
66      (classify-error (nstring-capitalize))
67      program-error)
68    
69    (deftest nstring-capitalize.error.2
70      (classify-error (nstring-capitalize (copy-seq "abc") :bad t))
71      program-error)
72    
73    (deftest nstring-capitalize.error.3
74      (classify-error (nstring-capitalize (copy-seq "abc") :start))
75      program-error)
76    
77    (deftest nstring-capitalize.error.4
78      (classify-error (nstring-capitalize (copy-seq "abc") :bad t
79                                          :allow-other-keys nil))
80      program-error)
81    
82    (deftest nstring-capitalize.error.5
83      (classify-error (nstring-capitalize (copy-seq "abc") :end))
84      program-error)
85    
86    (deftest nstring-capitalize.error.6
87      (classify-error (nstring-capitalize (copy-seq "abc") 1 2))
88      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