106 |
(values s s2)) |
(values s s2)) |
107 |
"abcdaba" |
"abcdaba" |
108 |
"cdaba") |
"cdaba") |
109 |
|
|
110 |
|
;;; Test that trimming is case sensitive |
111 |
|
(deftest string-left-trim.13 |
112 |
|
(let* ((s (copy-seq "aA")) |
113 |
|
(s2 (string-left-trim "a" s))) |
114 |
|
(values s s2)) |
115 |
|
"aA" "A") |
116 |
|
|
117 |
|
(deftest string-left-trim.14 |
118 |
|
(let* ((s '|abcdaba|) |
119 |
|
(s2 (string-left-trim "ab" s))) |
120 |
|
(values (symbol-name s) s2)) |
121 |
|
"abcdaba" |
122 |
|
"cdaba") |
123 |
|
|
124 |
|
(deftest string-left-trim.15 |
125 |
|
(string-left-trim "abc" "") |
126 |
|
"") |
127 |
|
|
128 |
|
(deftest string-left-trim.16 |
129 |
|
(string-left-trim "a" #\a) |
130 |
|
"") |
131 |
|
|
132 |
|
(deftest string-left-trim.17 |
133 |
|
(string-left-trim "b" #\a) |
134 |
|
"a") |
135 |
|
|
136 |
|
(deftest string-left-trim.18 |
137 |
|
(string-left-trim "" (copy-seq "abcde")) |
138 |
|
"abcde") |
139 |
|
|
140 |
|
(deftest string-left-trim.19 |
141 |
|
(string-left-trim "abc" (copy-seq "abcabcabc")) |
142 |
|
"") |