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) |