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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
function test_endswith(t)
t:require(("aaaccc"):endswith("ccc"))
t:require(("aaaccc"):endswith("aaaccc"))
t:require_not(("rc"):endswith("xcadas"))
t:require_not(("aaaccc "):endswith("%s"))
end
function test_startswith(t)
t:require(("aaaccc"):startswith("aaa"))
t:require(("aaaccc"):startswith("aaaccc"))
t:require_not(("rc"):startswith("xcadas"))
t:require_not((" aaaccc"):startswith("%s"))
end
function test_trim(t)
t:are_equal((""):trim(), "")
t:are_equal((" "):trim(), "")
t:are_equal((""):trim(""), "")
t:are_equal((" "):trim(""), "")
t:are_equal((" aaa ccc "):trim(), "aaa ccc")
t:are_equal(("aaa ccc "):trim(), "aaa ccc")
t:are_equal((" aaa ccc"):trim(), "aaa ccc")
t:are_equal(("aaa ccc"):trim(), "aaa ccc")
t:are_equal(("\t\naaa ccc\r\n"):trim(), "aaa ccc")
t:are_equal(("aba"):trim("a"), "b")
end
function test_ltrim(t)
t:are_equal((""):ltrim(), "")
t:are_equal((" "):ltrim(), "")
t:are_equal((""):ltrim(""), "")
t:are_equal((" "):ltrim(""), "")
t:are_equal((" aaa ccc "):ltrim(), "aaa ccc ")
t:are_equal(("aaa ccc "):ltrim(), "aaa ccc ")
t:are_equal((" aaa ccc"):ltrim(), "aaa ccc")
t:are_equal(("aaa ccc"):ltrim(), "aaa ccc")
t:are_equal(("\t\naaa ccc\r\n"):ltrim(), "aaa ccc\r\n")
t:are_equal(("aba"):ltrim("a"), "ba")
end
function test_rtrim(t)
t:are_equal((""):rtrim(), "")
t:are_equal((" "):rtrim(), "")
t:are_equal((""):rtrim(""), "")
t:are_equal((" "):rtrim(""), "")
t:are_equal((" aaa ccc "):rtrim(), " aaa ccc")
t:are_equal(("aaa ccc "):rtrim(), "aaa ccc")
t:are_equal((" aaa ccc"):rtrim(), " aaa ccc")
t:are_equal(("aaa ccc"):rtrim(), "aaa ccc")
t:are_equal(("\t\naaa ccc\r\n"):rtrim(), "\t\naaa ccc")
t:are_equal(("aba"):rtrim("a"), "ab")
end
function test_split(t)
-- pattern match and ignore empty string
t:are_equal(("1\n\n2\n3"):split('\n'), {"1", "2", "3"})
t:are_equal(("abc123123xyz123abc"):split('123'), {"abc", "xyz", "abc"})
t:are_equal(("abc123123xyz123abc"):split('[123]+'), {"abc", "xyz", "abc"})
-- plain match and ignore empty string
t:are_equal(("1\n\n2\n3"):split('\n', {plain = true}), {"1", "2", "3"})
t:are_equal(("abc123123xyz123abc"):split('123', {plain = true}), {"abc", "xyz", "abc"})
-- pattern match and contains empty string
t:are_equal(("1\n\n2\n3"):split('\n', {strict = true}), {"1", "", "2", "3"})
t:are_equal(("abc123123xyz123abc"):split('123', {strict = true}), {"abc", "", "xyz", "abc"})
t:are_equal(("abc123123xyz123abc"):split('[123]+', {strict = true}), {"abc", "xyz", "abc"})
t:are_equal(("123abc123123xyz123abc123"):split('[123]+', {strict = true}), {"", "abc", "xyz", "abc", ""})
t:are_equal(("123123"):split('[123]+', {strict = true}), {"", ""})
t:are_equal((""):split('[123]+', {strict = true}), {""})
-- plain match and contains empty string
t:are_equal(("1\n\n2\n3"):split('\n', {plain = true, strict = true}), {"1", "", "2", "3"})
t:are_equal(("abc123123xyz123abc"):split('123', {plain = true, strict = true}), {"abc", "", "xyz", "abc"})
t:are_equal(("123abc123123xyz123abc123"):split('123', {plain = true, strict = true}), {"", "abc", "", "xyz", "abc", ""})
t:are_equal(("123"):split('123', {plain = true, strict = true}), {"", ""})
t:are_equal((""):split('123', {plain = true, strict = true}), {""})
-- limit split count
t:are_equal(("1\n\n2\n3"):split('\n', {limit = 2}), {"1", "2\n3"})
t:are_equal(("1\n\n2\n3"):split('\n', {limit = 2, strict = true}), {"1", "\n2\n3"})
t:are_equal(("\n1\n\n2\n3"):split('\n', {limit = 2, strict = true}), {"", "1\n\n2\n3"})
t:are_equal(("1.2.3.4.5"):split('%.', {limit = 3}), {"1", "2", "3.4.5"})
t:are_equal(("123.45"):split('%.', {limit = 3}), {"123", "45"})
t:are_equal((""):split('123', {plain = true, limit = 2, strict = true}), {""})
t:are_equal(("123123"):split('123', {plain = true, limit = 2, strict = true}), {"", "123"})
end
function test_lastof(t)
t:are_equal(("1.2.3.4.5"):lastof('%.'), 8)
t:are_equal(("1.2.3.4.5"):lastof('.', true), 8)
t:are_equal(("/home/file.txt"):lastof('[/\\]'), 6)
t:are_equal(("/home/file.txt"):lastof('/', true), 6)
t:are_equal(("/home/file.txt"):lastof('/home', true), 1)
t:are_equal(("/home/file.txt"):lastof('[/\\]home'), 1)
end
|
