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
|
--
-- Tests for the pandoc.text module
--
local text = require 'pandoc.text'
local tasty = require 'tasty'
local group = tasty.test_group
local test = tasty.test_case
local assert = tasty.assert
assert.is_function = function (x)
assert.are_equal(type(x), 'function')
end
-- We rely mostly on the tests in the `hslua-module-text` module. The
-- only thing we need to test is whether `pandoc.text` is available,
-- whether all functions are defined, and whether `require 'text'` works
-- (for backwards compatibility).
return {
group 'module' {
test('is table', function ()
assert.are_equal(type(text), 'table')
end),
test('can be required as "text"', function ()
assert.are_equal(require 'text', require 'pandoc.text')
end)
},
group 'functions' {
test('fromencoding', function ()
assert.is_function(text.fromencoding)
end),
test('len', function ()
assert.is_function(text.len)
end),
test('lower', function ()
assert.is_function(text.lower)
end),
test('reverse', function ()
assert.is_function(text.reverse)
end),
test('sub', function ()
assert.is_function(text.sub)
end),
test('toencoding', function ()
assert.is_function(text.toencoding)
end),
test('upper', function ()
assert.is_function(text.upper)
end),
},
}
|
