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
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
#!/usr/bin/env texlua
-----------------------------------------------------------------------
-- FILE: mktests
-- USAGE: ./mktests
-- DESCRIPTION: test the behavior of Luaotfload
-- REQUIREMENTS: Luatex > 0.76, Luaotfload
-- AUTHOR: Philipp Gesang (Phg), <phg42.2a@gmail.com>
-- VERSION: 2.3
-- CREATED: 2013-07-11 11:32:24+0200
-----------------------------------------------------------------------
--
--===================================================================--
-- NOTE
-- this is a stub, to be completed long-term
-- suggestions welcome
--===================================================================--
local tests = { }
config = { luaotfload = {
names_dir = "names",
cache_dir = "fonts",
index_file = "luaotfload-names.lua",
resolver = "normal",
update_live = true, --- suppress db updates
}}
kpse.set_program_name "luatex"
require "lualibs"
require "luaotfload-basics-gen.lua"
require "luaotfload-override.lua"
require "luaotfload-database"
local names = fonts.names
-----------------------------------------------------------------------
--- helper functions
-----------------------------------------------------------------------
local pprint_resolve = function (input, output, result)
texio.write_nl (string.format ("[%s] “%s” -> “%s”",
result == true and "passed" or "failed",
input,
output))
end
local pprint_result = function (name, failed, total)
if failed == 0 then
texio.write_nl (string.format ("[%s] all %d passed", name, total))
else
texio.write_nl (string.format ("[%s] %d of %d failed",
name,
failed,
total))
end
end
local pprint_spec = function (spec)
return string.format ("%s*%.2fpt",
spec.specification,
spec.optsize)
end
-----------------------------------------------------------------------
--- font tests
-----------------------------------------------------------------------
--- test sets
local infer_regular_style = {
--- inferring which one is the correct style for “regular”; can be
--- obscured by synonyms like “book” etc.
{ "Iwona", "Iwona-Regular.otf" }, -- trivial case
{ "DejaVu Serif", "DejaVuSerif.ttf" },
{ "Adobe Garamond Pro", "agaramondpro_regular.otf" },
{ "Garamond Premier Pro", "GaramondPremrPro-Capt.otf" },
}
local choose_optical_size = {
{ { name = "Latin Modern Roman", optsize = 0 }, "lmroman5-regular.otf" },
{ { name = "Latin Modern Roman", optsize = 10 }, "lmroman10-regular.otf" },
{ { name = "Latin Modern Roman", optsize = 12 }, "lmroman12-regular.otf" },
{ { name = "Latin Modern Roman", optsize = 42 }, "lmroman17-regular.otf" },
{ { name = "EB Garamond", optsize = 0 }, "EBGaramond08-Regular.otf" },
{ { name = "EB Garamond", optsize = 8 }, "EBGaramond08-Regular.otf" },
{ { name = "EB Garamond", optsize = 12 }, "EBGaramond12-Regular.otf" },
{ { name = "EB Garamond", optsize = 42 }, "EBGaramond12-Regular.otf" },
{ { name = "Garamond Premier Pro", optsize = 0 }, "GaramondPremrPro-Capt.otf" },
{ { name = "Garamond Premier Pro", optsize = 10 }, "GaramondPremrPro.otf" },
{ { name = "Garamond Premier Pro", optsize = 15 }, "GaramondPremrPro-Subh.otf" },
{ { name = "Garamond Premier Pro", optsize = 42 }, "GaramondPremrPro-Disp.otf" },
}
local font_name_tests = {
infer_regular_style,
choose_optical_size,
}
local default_spec = {
name = false,
lookup = "name",
specification = false,
optsize = 0,
}
local resolve_font_name = function ()
local failed, total = 0, 0
local resolve_name = names.resolve
for nset = 1, #font_name_tests do
local set = font_name_tests[nset]
for ntest = 1, #set do
local test = set[ntest]
local input, output = test[1], test[2]
if type (input) == "string" then
local input_spec = table.copy (default_spec)
input_spec.name = input
input_spec.specification = input_spec.lookup .. ":" .. input
local result = resolve_name (nil, nil, input_spec) == output
total = total + 1
if not result then
failed = failed + 1
end
pprint_resolve (input, output, result)
else
local input_spec, output = test[1], test[2]
input_spec.specification = (input_spec.lookup
or default_spec.lookup)
.. ":" .. input_spec.name
input_spec.optsize = input_spec.optsize or default_spec.optsize
--print( resolve_name (nil, nil, input_spec) )
local result = resolve_name (nil, nil, input_spec) == output
total = total + 1
if not result then
failed = failed + 1
end
pprint_resolve (pprint_spec (input_spec), output, result)
end
end
end
return failed, total
end
tests ["resolve_font_name"] = resolve_font_name
-----------------------------------------------------------------------
--- runner
-----------------------------------------------------------------------
local main = function ()
local failed, total = 0, 0
for name, test in next, tests do
texio.write_nl ("[" .. name .. "]")
local newfailed, newtotal = test ()
total = total + 1
pprint_result (name, newfailed, newtotal)
failed = failed + newfailed
total = total + newtotal
end
if failed == 0 then
texio.write_nl (string.format ("[report] all %d tests passed.", total))
else
texio.write_nl (string.format ("[report] %d of %d tests failed (%d %%).",
failed,
total,
failed / total * 100))
end
texio.write_nl ""
os.exit (0)
end
return main ()
|
