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