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