all.T 9.62 KB
Newer Older
1
# Args to vtc are: extra compile flags
2

3
4
def f( opts ):
  opts.extra_hc_opts = '-fno-warn-incomplete-patterns'
5

6
setTestOpts(f)
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
test('tc001', normal, compile, [''])
test('tc002', normal, compile, [''])
test('tc003', normal, compile, [''])
test('tc004', normal, compile, [''])
test('tc005', normal, compile, [''])
test('tc006', normal, compile, [''])
test('tc007', normal, compile, [''])
test('tc008', normal, compile, [''])
test('tc009', normal, compile, [''])
test('tc010', normal, compile, [''])
test('tc011', normal, compile, [''])
test('tc012', normal, compile, [''])
test('tc013', normal, compile, [''])
test('tc014', normal, compile, [''])
test('tc015', normal, compile, [''])
test('tc016', normal, compile, [''])
test('tc017', normal, compile, [''])
test('tc018', normal, compile, [''])
test('tc019', normal, compile, ['-fglasgow-exts'])
test('tc020', normal, compile, [''])
test('tc021', normal, compile, [''])
test('tc022', normal, compile, [''])
test('tc023', normal, compile, [''])
test('tc024', normal, compile, [''])
test('tc025', normal, compile, [''])
test('tc026', normal, compile, [''])
test('tc027', normal, compile, [''])
test('tc028', normal, compile, [''])
test('tc029', normal, compile, [''])
test('tc030', normal, compile, [''])
test('tc031', normal, compile, [''])
test('tc032', normal, compile, [''])
test('tc033', normal, compile, [''])
test('tc034', normal, compile, [''])
test('tc035', normal, compile, [''])
test('tc036', normal, compile, [''])
test('tc037', normal, compile, [''])
test('tc038', normal, compile, [''])
test('tc039', normal, compile, [''])
test('tc040', normal, compile, [''])
test('tc041', normal, compile, [''])
test('tc042', normal, compile, [''])
test('tc043', normal, compile, [''])
test('tc044', normal, compile, [''])
test('tc045', normal, compile, [''])
test('tc046', normal, compile, [''])
test('tc047', normal, compile, [''])
test('tc048', normal, compile, [''])
test('tc049', normal, compile, [''])
test('tc050', normal, compile, [''])
test('tc051', normal, compile, [''])
test('tc052', normal, compile, [''])
test('tc053', normal, compile, [''])
test('tc054', normal, compile, [''])
test('tc055', normal, compile, [''])
test('tc056', normal, compile, [''])
test('tc057', normal, compile, [''])
test('tc058', normal, compile, [''])
test('tc059', normal, compile, [''])
test('tc060', normal, compile, [''])
test('tc061', normal, compile, [''])
test('tc062', normal, compile, [''])
test('tc063', normal, compile, [''])
test('tc064', normal, compile, [''])
72
test('tc065', normal, compile, [''])
73
74
75
76
77
78
79
80
81
82
83
84
85
86
test('tc066', normal, compile, [''])
test('tc067', normal, compile, [''])
test('tc068', normal, compile, [''])
test('tc069', normal, compile, [''])
test('tc070', normal, compile, [''])
test('tc073', normal, compile, [''])
test('tc074', normal, compile, [''])
test('tc076', normal, compile, [''])
test('tc077', normal, compile, [''])
test('tc078', normal, compile, [''])
test('tc079', normal, compile, [''])
test('tc080', normal, compile, [''])
test('tc081', normal, compile, [''])
test('tc082', normal, compile, [''])
ross's avatar
ross committed
87
test('tc084', expect_fail_if_compiler_type('hugs'), compile, [''])
ross's avatar
ross committed
88
test('tc085', only_compiler_types(['ghc']), compile, [''])
89
90
test('tc086', normal, compile, [''])
test('tc087', normal, compile, ['-fglasgow-exts'])
91
test('tc088', normal, compile, [''])
92
93
94
95
96
97
98
test('tc089', normal, compile, [''])
test('tc090', normal, compile, [''])
test('tc091', normal, compile, [''])
test('tc092', normal, compile, [''])
test('tc093', normal, compile, [''])
test('tc094', normal, compile, [''])
test('tc095', normal, compile, [''])
ross's avatar
ross committed
99
test('tc096', expect_fail_if_compiler_type('hugs'), compile, [''])
100
101
102
103
104
105
test('tc097', normal, compile, ['-fglasgow-exts'])
test('tc098', normal, compile, [''])
test('tc099', normal, compile, [''])
test('tc100', normal, compile, [''])
test('tc101', normal, compile, [''])
test('tc102', normal, compile, [''])
106
# tc103 free
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
test('tc104', normal, compile, [''])
test('tc105', normal, compile, [''])
test('tc106', normal, compile, [''])
test('tc107', normal, compile, [''])
test('tc108', normal, compile, ['-fglasgow-exts'])
test('tc109', normal, compile, [''])
test('tc111', normal, compile, [''])
test('tc112', normal, compile, [''])
test('tc113', normal, compile, [''])
test('tc114', normal, compile, [''])
test('tc115', normal, compile, [''])
test('tc116', normal, compile, [''])
test('tc117', normal, compile, [''])
test('tc118', normal, compile, [''])
test('tc119', normal, compile, [''])
test('tc120', normal, compile, [''])
test('tc121', normal, compile, [''])
test('tc122', normal, compile, [''])
test('tc123', normal, compile, [''])
test('tc124', normal, compile, [''])
test('tc125', normal, compile, [''])
test('tc126', normal, compile, [''])
test('tc127', normal, compile, [''])
test('tc128', normal, compile, [''])
test('tc129', normal, compile, [''])
test('tc130', normal, compile, [''])
test('tc131', normal, compile, [''])
134
test('tc132', normal, compile, [''])
135
test('tc133', normal, compile, [''])
136
137
138
139

# tc134 tested result type signatures, which aren't supported any more
# test('tc134', only_compiler_types(['ghc']), compile_fail, [''])

ross's avatar
ross committed
140
test('tc135', only_compiler_types(['ghc']), compile, [''])
141
142
143
test('tc136', normal, compile, [''])
test('tc137', normal, compile, [''])
test('tc140', normal, compile, [''])
simonpj's avatar
simonpj committed
144
test('tc141', normal, compile_fail, [''])
145
146
test('tc142', normal, compile, [''])
test('tc143', normal, compile, [''])
ross's avatar
ross committed
147
test('tc144', omit_compiler_types(['hugs']), compile, [''])	# Hugs loops
148
149
150
test('tc145', normal, compile, [''])
test('tc146', normal, compile, [''])
test('tc147', normal, compile, [''])
ross's avatar
ross committed
151
152
test('tc148', only_compiler_types(['ghc']), compile, [''])
test('tc149', only_compiler_types(['ghc']), compile, [''])
153
154
test('tc150', normal, compile, [''])
test('tc151', normal, compile, [''])
ross's avatar
ross committed
155
test('tc152', only_compiler_types(['ghc']), compile, [''])
156
157
158
test('tc153', normal, compile, [''])
test('tc154', normal, compile, [''])
test('tc155', normal, compile, [''])
ross's avatar
ross committed
159
test('tc156', only_compiler_types(['ghc']), compile, [''])
160
test('tc157', normal, compile, [''])
ross's avatar
ross committed
161
test('tc158', only_compiler_types(['ghc']), compile, [''])
162
test('tc159', normal, compile, [''])
ross's avatar
ross committed
163
test('tc160', only_compiler_types(['ghc']), compile, [''])
164
test('tc161', normal, compile, [''])
ross's avatar
ross committed
165
166
test('tc162', only_compiler_types(['ghc']), compile_fail, [''])
test('tc163', only_compiler_types(['ghc']), compile, [''])
167
test('tc164', normal, compile, [''])
168
test('tc165', normal, compile, [''])
ross's avatar
ross committed
169
170
test('tc166', only_compiler_types(['ghc']), compile, [''])
test('tc167', only_compiler_types(['ghc']), compile, [''])
ross's avatar
ross committed
171
test('tc168', only_compiler_types(['ghc']), compile, ['-ddump-types'])
172
test('tc169', normal, compile, [''])
173
174

# The bug in tc170 is triggered only by batch compilation
175
176
177
# which we do by steam here, with a pair of tests.  Make sure
# we run one way only, so we can be sure to have the right kind
# of interface file for the second part of the test.
178
test('Tc170_Aux', compose(no_clean, only_ways(['opt'])), compile, [''])
179
test('tc170', only_ways(['opt']), compile, [''])
180
clean(['Tc170_Aux.comp.stderr', 'Tc170_Aux.hi', 'Tc170_Aux.o'])
181

182
test('tc171', normal, compile, [''])
183
test('tc172', normal, compile, [''])
184
185

# The point about this test is that it compiles Tc173a and Tc173b *separately*
186
test('tc173', ignore_output, run_command, ['$MAKE tc173'])
187
clean(['Tc173a.hi', 'Tc173a.o', 'Tc173b.hi', 'Tc173b.o'])
188

ross's avatar
ross committed
189
test('tc174', only_compiler_types(['ghc']), compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
190
test('tc175', normal, compile, [''])
191
test('tc176', normal, compile, [''])
192
test('tc177', normal, compile, [''])
193
194
test('tc178', normal, compile, [''])
test('tc179', normal, compile, [''])
195
test('tc180', normal, compile, [''])
196
test('tc181', normal, compile, [''])
197
test('tc182', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
198
test('tc183', reqlib('mtl'), compile, [''])
199
test('tc184', normal, compile, [''])
ross's avatar
ross committed
200
test('tc185', only_compiler_types(['ghc']), compile, [''])
201
test('tc186', normal, compile, [''])
202
test('tc187', normal, compile, [''])
ross's avatar
ross committed
203
test('tc188', only_compiler_types(['ghc']), compile, [''])
204
test('tc189', normal, compile, [''])
ross's avatar
ross committed
205
206
207
test('tc190', only_compiler_types(['ghc']), compile, [''])
test('tc191', only_compiler_types(['ghc']), compile, [''])
test('tc192', only_compiler_types(['ghc']), compile, [''])
208
test('tc193', only_compiler_types(['ghc']), compile, [''])
209
test('tc194', only_compiler_types(['ghc']), compile, [''])
210
test('tc195', only_compiler_types(['ghc']), compile, [''])
211
test('tc196', normal, compile, [''])
212
test('tc197', normal, compile, [''])
213
test('tc198', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
214
test('tc199', expect_broken_if_compiler_type(1061, 'ghc'), compile, [''])
215
test('tc200', normal, compile, [''])
simonpj's avatar
simonpj committed
216
test('tc201', normal, compile, [''])
simonpj's avatar
simonpj committed
217
test('tc202', normal, compile, [''])
simonpj's avatar
simonpj committed
218
test('tc203', normal, compile, [''])
simonpj's avatar
simonpj committed
219
test('tc204', normal, compile, [''])
220
test('tc205', normal, compile, [''])
simonpj's avatar
simonpj committed
221
test('tc206', normal, compile, [''])
222
test('tc207', normal, compile, [''])
223
test('tc208', normal, compile, [''])
simonpj's avatar
simonpj committed
224
test('tc209', normal, compile, [''])
simonpj's avatar
simonpj committed
225
test('tc210', normal, compile, [''])
simonpj's avatar
simonpj committed
226
test('tc211', normal, compile, [''])
simonpj's avatar
simonpj committed
227
test('tc212', normal, compile, [''])
simonpj's avatar
simonpj committed
228
test('tc213', normal, compile, [''])
simonpj's avatar
simonpj committed
229
test('tc214', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
230
test('tc215', expect_broken(366), compile, [''])
231
test('tc216', normal, compile, [''])
simonpj's avatar
simonpj committed
232
test('tc217', normal, compile, [''])
233
234
test('tc218', normal, compile, [''])
test('tc219', normal, compile, [''])
simonpj's avatar
simonpj committed
235
test('tc220', normal, compile, [''])
236
test('tc221', normal, compile, [''])
simonpj's avatar
simonpj committed
237
test('tc222', normal, compile, [''])
238
test('tc223', normal, compile, [''])
239
test('tc224', normal, compile, [''])
simonpj's avatar
simonpj committed
240
test('tc225', normal, compile, [''])
241

242
243
test('faxen', normal, compile, [''])

244
245
246
247
# Omitting temporarily
# test('syn-perf', normal, compile, ['-fcontext-stack=30'])
# test('syn-perf2', normal, compile, ['-fcontext-stack=30'])

248
249
250
test('LoopOfTheDay1', normal, compile, [''])
test('LoopOfTheDay2', normal, compile, [''])
test('LoopOfTheDay3', normal, compile, [''])