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
|
-- the use of tests/test.lua is done by comparing the output between 5.1 and 5.3
-- it's not adapted for our case, select a few for basic operations
package.path = "./?.lua;./?/init.lua"
package.cpath = "./?.so"
require("compat53")
local failures = 0
local function test(name, f)
print("testing " .. name .. "...")
local ok, err = pcall(require, "compat53." .. name)
if not ok then
failures = failures + 1
print("FAIL: " .. err)
return
end
ok, err = pcall(f)
if ok then
print(name .. "... OK")
else
failures = failures + 1
print("FAIL: " .. err)
end
end
test("utf8", function()
local unpack = table.unpack or unpack
local function utf8rt(s)
local t = { utf8.codepoint(s, 1, #s) }
local ps, cs = {}, {}
for p,c in utf8.codes(s) do
ps[#ps+1], cs[#cs+1] = p, c
end
print("utf8.codes", unpack(ps))
print("utf8.codes", unpack(cs))
print("utf8.codepoint", unpack(t))
print("utf8.len", utf8.len(s), #t, #s)
print("utf8.char", utf8.char(unpack(t)))
end
utf8rt("äöüßÄÖÜ")
utf8rt("abcdefg")
local s = "äöüßÄÖÜ"
print("utf8.offset", utf8.offset(s, 1, 1))
print("utf8.offset", utf8.offset(s, 2, 1))
print("utf8.offset", utf8.offset(s, 3, 1))
print("utf8.offset", pcall(utf8.offset, s, 3, 2))
print("utf8.offset", utf8.offset(s, 3, 3))
print("utf8.offset", utf8.offset(s, -1, 7))
print("utf8.offset", utf8.offset(s, -2, 7))
print("utf8.offset", utf8.offset(s, -3, 7))
print("utf8.offset", utf8.offset(s, -1))
end)
test("string", function()
local format = "bBhHlLjJdc3z"
local s = string.pack(format, -128, 255, -32768, 65535, -2147483648, 4294967295, -32768, 65536, 1.25, "abc", "defgh")
print("string.unpack", string.unpack(format, s))
end)
test("table", function()
local t = table.pack("a", nil, "b", nil)
print("table.(un)pack()", t.n, table.unpack(t, 1, t.n))
end)
if failures == 0 then
print("tests PASSED")
else
print("tests FAILED (" .. failures .. " failures)")
os.exit(1)
end
|
