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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
--
-- Tests for the system module
--
local pandoc = require 'pandoc'
local json = require 'pandoc.json'
local tasty = require 'tasty'
local group = tasty.test_group
local test = tasty.test_case
local assert = tasty.assert
return {
-- Check existence of static fields
group 'static fields' {
test('null', function ()
assert.are_equal(type(json.null), 'userdata')
end),
},
group 'encode' {
test('string', function ()
assert.are_equal(json.encode 'one\ntwo', '"one\\ntwo"')
end),
test('null', function ()
assert.are_equal(json.encode(json.null), 'null')
end),
test('number', function ()
assert.are_equal(json.encode(42), '42')
end),
test('object', function ()
assert.are_same(json.encode{a = 5}, '{"a":5}')
end),
test('object with metamethod', function ()
local obj = setmetatable(
{title = 23},
{
__tojson = function (_)
return '"Nichts ist so wie es scheint"'
end
}
)
assert.are_same(json.encode(obj), [["Nichts ist so wie es scheint"]])
end),
test('pandoc.List', function ()
local list = pandoc.List {'foo', 'bar', 'baz'}
assert.are_equal(
json.encode(list),
'["foo","bar","baz"]'
)
end),
test('Inline (Space)', function ()
assert.are_equal(
json.encode(pandoc.Space()),
'{"t":"Space"}'
)
end),
test('Block (HorizontalRule)', function ()
assert.are_equal(
json.encode(pandoc.HorizontalRule()),
'{"t":"HorizontalRule"}'
)
end),
test('Inlines list', function ()
assert.are_equal(
json.encode(pandoc.Inlines{pandoc.Space()}),
'[{"t":"Space"}]'
)
end),
test('Pandoc', function ()
assert.are_equal(
type(json.encode(pandoc.Pandoc{'Hello from Lua!'})),
'string'
)
end),
test('Nested Inline', function ()
assert.are_equal(
json.encode({spc = pandoc.Space()}),
'{"spc":{"t":"Space"}}'
)
end)
},
group 'decode' {
test('string', function ()
assert.are_equal(json.decode '"one\\ntwo"', 'one\ntwo')
end),
test('null', function ()
assert.are_equal(json.decode 'null', json.null)
end),
test('number', function ()
assert.are_equal(json.decode '42', 42)
end),
test('object', function ()
assert.are_same(json.decode '{"a":5}', {a = 5})
end),
test('list of strings', function ()
assert.are_equal(json.decode '["foo", "bar"]', pandoc.List{"foo", "bar"})
end),
test('Inline (Space)', function ()
assert.are_equal(json.decode '{"t":"Space"}', pandoc.Space())
end),
test('Inline (Str)', function ()
assert.are_equal(json.decode '{"t":"Str", "c":"a"}', pandoc.Str 'a')
end),
test('disabled AST check', function ()
assert.are_same(
json.decode('{"t":"Str", "c":"a"}', false),
{t = 'Str', c = 'a'}
)
end),
test('Inlines list', function ()
assert.are_equal(
json.decode '[{"t":"Space"}]',
pandoc.Inlines{pandoc.Space()}
)
end)
},
}
|
