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
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
|
#
# (c) Simon Marlow 2002
#
# -----------------------------------------------------------------------------
# Configuration info
# There is a single global instance of this structure, stored in the
# variable config below. The fields of the structure are filled in by
# the appropriate config script(s) for this compiler/platform, in
# ../config.
#
# Bits of the structure may also be filled in from the command line,
# via the build system, using the '-e' option to runtests.
class TestConfig:
def __init__(self):
# Where the testsuite root is
self.top = ''
# Directories below which to look for test description files (foo.T)
self.rootdirs = []
# Run these tests only (run all tests if empty)
self.run_only_some_tests = False
self.only = set()
# Accept new output which differs from the sample?
self.accept = False
self.accept_platform = False
self.accept_os = False
# File in which to save the performance metrics.
self.metrics_file = ''
# File in which to save the summary
self.summary_file = ''
# Should we print the summary?
# Disabling this is useful for Phabricator/Harbormaster
# logfiles, which are truncated to 30 lines. TODO. Revise if
# this is still true.
# Note that we have a separate flag for this, instead of
# overloading --verbose, as you might want to see the summary
# with --verbose=0.
self.no_print_summary = False
# What platform are we running on?
self.platform = ''
self.os = ''
self.arch = ''
self.msys = False
self.cygwin = False
# What is the wordsize (in bits) of this platform?
self.wordsize = ''
# Verbosity level
self.verbose = 3
# See Note [validate and testsuite speed] in toplevel Makefile.
self.speed = 1
self.list_broken = False
# Path to the compiler (stage2 by default)
self.compiler = ''
# and ghc-pkg
self.ghc_pkg = ''
# Is self.compiler a stage 1, 2 or 3 compiler?
self.stage = 2
# Flags we always give to this compiler
self.compiler_always_flags = []
# Which ways to run tests (when compiling and running respectively)
# Other ways are added from the command line if we have the appropriate
# libraries.
self.compile_ways = []
self.run_ways = []
self.other_ways = []
# The ways selected via the command line.
self.cmdline_ways = []
# Lists of flags for each way
self.way_flags = {}
self.way_rts_flags = {}
# Do we have vanilla libraries?
self.have_vanilla = False
# Do we have dynamic libraries?
self.have_dynamic = False
# Do we have profiling support?
self.have_profiling = False
# Do we have interpreter support?
self.have_interp = False
# Do we have shared libraries?
self.have_shared_libs = False
# Do we have SMP support?
self.have_smp = False
# Is gdb avaliable?
self.have_gdb = False
# Is readelf available?
self.have_readelf = False
# Are we testing an in-tree compiler?
self.in_tree_compiler = True
# the timeout program
self.timeout_prog = ''
self.timeout = 300
# threads
self.threads = 1
self.use_threads = False
# Should we skip performance tests
self.skip_perf_tests = False
# Only do performance tests
self.only_perf_tests = False
# Allowed performance changes (see perf_notes.get_allowed_perf_changes())
self.allowed_perf_changes = {}
# The test environment.
self.test_env = 'local'
global config
config = TestConfig()
def getConfig():
return config
import os
# Hold our modified GHC testrunning environment so we don't poison the current
# python's environment.
global ghc_env
ghc_env = os.environ.copy()
# -----------------------------------------------------------------------------
# Information about the current test run
class TestRun:
def __init__(self):
self.start_time = None
self.total_tests = 0
self.total_test_cases = 0
self.n_tests_skipped = 0
self.n_expected_passes = 0
self.n_expected_failures = 0
self.missing_libs = []
self.framework_failures = []
self.framework_warnings = []
self.expected_passes = []
self.unexpected_passes = []
self.unexpected_failures = []
self.unexpected_stat_failures = []
# List of all metrics measured in this test run.
# [(change, PerfStat)] where change is one of the MetricChange
# constants: NewMetric, NoChange, Increase, Decrease.
# NewMetric happens when the previous git commit has no metric recorded.
self.metrics = []
global t
t = TestRun()
def getTestRun():
return t
# -----------------------------------------------------------------------------
# Information about the current test
class TestOptions:
def __init__(self):
# skip this test?
self.skip = False
# skip these ways
self.omit_ways = []
# skip all ways except these (None == do all ways)
self.only_ways = None
# add these ways to the default set
self.extra_ways = []
# the result we normally expect for this test
self.expect = 'pass'
# override the expected result for certain ways
self.expect_fail_for = []
# the stdin file that this test will use (empty for <name>.stdin)
self.stdin = ''
# don't compare output
self.ignore_stdout = False
self.ignore_stderr = False
# Backpack test
self.compile_backpack = False
# We sometimes want to modify the compiler_always_flags, so
# they are copied from config.compiler_always_flags when we
# make a new instance of TestOptions.
self.compiler_always_flags = []
# extra compiler opts for this test
self.extra_hc_opts = ''
# extra run opts for this test
self.extra_run_opts = ''
# expected exit code
self.exit_code = 0
# extra files to clean afterward
self.clean_files = []
# extra files to copy to the testdir
self.extra_files = []
# Map from metric to expectected value and allowed percentage deviation. e.g.
# { 'bytes allocated': (9300000000, 10) }
# To allow a 10% deviation from 9300000000 for the 'bytes allocated' metric.
self.stats_range_fields = {}
# Does this test the compiler's performance as opposed to the generated code.
self.is_compiler_stats_test = False
# should we run this test alone, i.e. not run it in parallel with
# any other threads
self.alone = False
# Does this test use a literate (.lhs) file?
self.literate = False
# Does this test use a .c, .m or .mm file?
self.c_src = False
self.objc_src = False
self.objcpp_src = False
# Does this test use a .cmm file?
self.cmm_src = False
# Should we put .hi/.o files in a subdirectory?
self.outputdir = None
# Command to run before the test
self.pre_cmd = None
# Command wrapper: a function to apply to the command before running it
self.cmd_wrapper = None
# Prefix to put on the command before compiling it
self.compile_cmd_prefix = ''
# Extra output normalisation
self.extra_normaliser = lambda x: x
# Custom output checker, otherwise do a comparison with expected
# stdout file. Accepts two arguments: filename of actual stdout
# output, and a normaliser function given other test options
self.check_stdout = None
# Check .hp file when profiling libraries are available?
self.check_hp = True
# Extra normalisation for compiler error messages
self.extra_errmsg_normaliser = lambda x: x
# Keep profiling callstacks.
self.keep_prof_callstacks = False
# The directory the test is in
self.testdir = '.'
# Should we redirect stdout and stderr to a single file?
self.combined_output = False
# How should the timeout be adjusted on this test?
self.compile_timeout_multiplier = 1.0
self.run_timeout_multiplier = 1.0
self.cleanup = True
# Sould we run tests in a local subdirectory (<testname>-run) or
# in temporary directory in /tmp? See Note [Running tests in /tmp].
self.local = True
# The default set of options
global default_testopts
default_testopts = TestOptions()
# (bug, directory, name) of tests marked broken
global brokens
brokens = []
|