140 |
(deftest string-left-trim.19 |
(deftest string-left-trim.19 |
141 |
(string-left-trim "abc" (copy-seq "abcabcabc")) |
(string-left-trim "abc" (copy-seq "abcabcabc")) |
142 |
"") |
"") |
143 |
|
|
144 |
|
;;; Error cases |
145 |
|
|
146 |
|
(deftest string-left-trim.error.1 |
147 |
|
(classify-error (string-left-trim)) |
148 |
|
program-error) |
149 |
|
|
150 |
|
(deftest string-left-trim.error.2 |
151 |
|
(classify-error (string-left-trim "abc")) |
152 |
|
program-error) |
153 |
|
|
154 |
|
(deftest string-left-trim.error.3 |
155 |
|
(classify-error (string-left-trim "abc" "abcdddabc" nil)) |
156 |
|
program-error) |