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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
utils = require 'pandoc.utils'
-- Squash blocks to inlines
------------------------------------------------------------------------
function test_blocks_to_inlines ()
local blocks = {
pandoc.Para{ pandoc.Str 'Paragraph1' },
pandoc.Para{ pandoc.Emph 'Paragraph2' }
}
local inlines = utils.blocks_to_inlines(blocks, {pandoc.LineBreak()})
return #inlines == 3
and inlines[1].text == "Paragraph1"
and inlines[2].t == 'LineBreak'
and inlines[3].content[1].text == "Paragraph2"
end
-- hierarchicalize
------------------------------------------------------------------------
function test_hierarchicalize ()
local blks = {
pandoc.Header(1, {pandoc.Str 'First'}),
pandoc.Header(2, {pandoc.Str 'Second'}),
pandoc.Header(2, {pandoc.Str 'Third'}),
}
local hblks = utils.hierarchicalize(blks)
return hblks[1].t == "Sec"
and hblks[1].contents[1].t == "Sec"
and hblks[1].contents[2].numbering[1] == 1
and hblks[1].contents[2].numbering[2] == 2
end
-- SHA1
------------------------------------------------------------------------
function test_sha1 ()
local ref_hash = '0a0a9f2a6772942557ab5355d76af442f8f65e01'
local hash = utils.sha1 'Hello, World!'
return hash == ref_hash
end
-- Pipe
------------------------------------------------------------------------
function file_exists (filename)
local fh = io.open(filename, 'r')
return fh ~= nil and (fh:close() or true)
end
function warn (...) io.stderr:write(...) end
function os_is_windows ()
return package.config:sub(1,1) == '\\'
end
function test_pipe ()
if os_is_windows() then
local pipe_result = pandoc.pipe('find', {'hi'}, 'hi')
return pipe_result:match("%a+") == 'hi'
else
local pipe_result = pandoc.pipe('tr', {'a', 'b'}, 'abc')
return pipe_result:match("%a+") == 'bbc'
end
end
function test_failing_pipe ()
if os_is_windows() then
local res, err = pcall(pandoc.pipe, 'find', {'/a'}, 'hi')
return not res and
err.command == 'find' and
err.error_code ~= 0
else
local res, err = pcall(pandoc.pipe, 'false', {}, 'abc')
return not res and
err.command == 'false' and
err.error_code == 1 and
err.output == ''
end
end
-- Read
------------------------------------------------------------------------
function test_read ()
local valid_markdown = '*Hello*, World!\n'
local res = pandoc.read(valid_markdown).blocks[1].content
return res[1].t == 'Emph' and res[3].t == 'Space' and res[4].t == 'Str'
end
function test_failing_read ()
local res, err = pcall(pandoc.read, 'foo', 'nosuchreader')
return not res and err:match 'Unknown reader: nosuchreader'
end
-- Stringify
------------------------------------------------------------------------
function test_stringify ()
local inline = pandoc.Emph{
pandoc.Str 'Cogito',
pandoc.Space(),
pandoc.Str 'ergo',
pandoc.Space(),
pandoc.Str 'sum.',
}
return utils.stringify(inline) == 'Cogito ergo sum.'
end
-- to_roman_numeral
------------------------------------------------------------------------
function test_to_roman_numeral ()
return utils.to_roman_numeral(1888) == 'MDCCCLXXXVIII'
-- calling with a string fails
and not pcall(utils.to_roman_numeral, 'not a number')
end
-- normalize_date
------------------------------------------------------------------------
function test_normalize_date ()
return utils.normalize_date("12/31/2017") == '2017-12-31'
and utils.normalize_date("pandoc") == nil
end
-- Return result
------------------------------------------------------------------------
function run(fn)
return fn() and "OK" or "FAIL"
end
function Para (el)
return {
pandoc.Plain{pandoc.Str("blocks_to_inlines: " .. run(test_blocks_to_inlines))},
pandoc.Plain{pandoc.Str("hierarchicalize: " .. run(test_hierarchicalize))},
pandoc.Plain{pandoc.Str("normalize_date: " .. run(test_normalize_date))},
pandoc.Plain{pandoc.Str("pipe: " .. run(test_pipe))},
pandoc.Plain{pandoc.Str("failing pipe: " .. run(test_failing_pipe))},
pandoc.Plain{pandoc.Str("read: " .. run(test_read))},
pandoc.Plain{pandoc.Str("failing read: " .. run(test_failing_read))},
pandoc.Plain{pandoc.Str("sha1: " .. run(test_sha1))},
pandoc.Plain{pandoc.Str("stringify: " .. run(test_stringify))},
pandoc.Plain{pandoc.Str("to_roman_numeral: " .. run(test_to_roman_numeral))},
}
end
|
