blob: da1fc0c123bd09bf7d978ec6b02c647777b1aa5e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
(load "../common")
(mtest
(trim-left "" "") ""
(trim-left 1 "") :error
(trim-left "" 1) :error
(trim-left 1 1) :error)
(mtest
(trim-left "" "abc") "abc"
(trim-left "a" "abc") "bc"
(trim-left "ab" "abc") "c"
(trim-left "abc" "abc") ""
(trim-left "abcd" "abc") "abc"
(trim-left "z" "abc") "abc")
(mtest
(trim-left #// "abc") "abc"
(trim-left #/./ "abc") "bc"
(trim-left #/../ "abc") "c"
(trim-left #/.../ "abc") ""
(trim-left #/.*/ "abc") ""
(trim-left #/..../ "abc") "abc"
(trim-left #/z/ "abc") "abc")
(mtest
(trim-right "" "abc") "abc"
(trim-right "c" "abc") "ab"
(trim-right "bc" "abc") "a"
(trim-right "abc" "abc") ""
(trim-right "xabc" "abc") "abc"
(trim-right "z" "abc") "abc")
(mtest
(trim-right #// "abc") "abc"
(trim-right #/./ "abc") "ab"
(trim-right #/../ "abc") "a"
(trim-right #/.../ "abc") ""
(trim-right #/.*/ "abc") ""
(trim-right #/..../ "abc") "abc"
(trim-right #/z/ "abc") "abc")
|