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
|
require "uri-test"
local Util = require "uri._util"
module("test.util", lunit.testcase, package.seeall)
function test_metadata ()
is("uri._util", Util._NAME)
end
function test_uri_encode ()
is("%7Cabc%E5", Util.uri_encode("|abc\229"))
is("a%62%63", Util.uri_encode("abc", "b-d"))
assert_nil(Util.uri_encode(nil))
end
function test_uri_decode ()
is("|abc\229", Util.uri_decode("%7Cabc%e5"))
is("@AB", Util.uri_decode("%40A%42"))
is("CDE", Util.uri_decode("CDE"))
end
function test_uri_decode ()
is("/%2F%25/..!%A1", Util.uri_decode("/%2F%25/%2e.%21%A1", "%-.!"))
end
function test_remove_dot_segments ()
is("/", Util.remove_dot_segments("/foo/../"))
is("/bar", Util.remove_dot_segments("/foo/./../bar"))
end
function test_split ()
local list
list = Util.split(";", "")
assert_array_shallow_equal({}, list)
list = Util.split(";", "foo")
assert_array_shallow_equal({"foo"}, list)
list = Util.split(";", "foo;bar")
assert_array_shallow_equal({"foo","bar"}, list)
list = Util.split(";", "foo;bar;baz")
assert_array_shallow_equal({"foo","bar","baz"}, list)
list = Util.split(";", ";")
assert_array_shallow_equal({"",""}, list)
list = Util.split(";", "foo;")
assert_array_shallow_equal({"foo",""}, list)
list = Util.split(";", ";foo")
assert_array_shallow_equal({"","foo"}, list)
-- TODO test with multi-char and more complex patterns
end
function test_split_with_max ()
local list
list = Util.split(";", "foo;bar;baz", 4)
assert_array_shallow_equal({"foo","bar","baz"}, list)
list = Util.split(";", "foo;bar;baz", 3)
assert_array_shallow_equal({"foo","bar","baz"}, list)
list = Util.split(";", "foo;bar;baz", 2)
assert_array_shallow_equal({"foo","bar;baz"}, list)
list = Util.split(";", "foo;bar;baz", 1)
assert_array_shallow_equal({"foo;bar;baz"}, list)
end
function test_attempt_require ()
local mod = Util.attempt_require("string")
assert_table(mod)
mod = Util.attempt_require("lua-module-which-doesn't-exist")
assert_nil(mod)
end
function test_subclass_of ()
local baseclass = {}
baseclass.__index = baseclass
baseclass.overridden = function () return "baseclass" end
baseclass.inherited = function () return "inherited" end
local subclass = {}
Util.subclass_of(subclass, baseclass)
subclass.overridden = function () return "subclass" end
assert(getmetatable(subclass) == baseclass)
assert(subclass._SUPER == baseclass)
local baseobject, subobject = {}, {}
setmetatable(baseobject, baseclass)
setmetatable(subobject, subclass)
is("baseclass", baseobject:overridden())
is("subclass", subobject:overridden())
is("inherited", baseobject:inherited())
is("inherited", subobject:inherited())
end
-- vi:ts=4 sw=4 expandtab
|
