all.T 10.5 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, [''])
Ian Lynagh's avatar
Ian Lynagh committed
144
test('tc141', if_compiler_lt('ghc','6.9', namebase('tc141-6.8')), 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 179
test('Tc170_Aux', compose(no_clean, only_ways(['optc','optasm'])), compile, [''])
test('tc170', only_ways(['optc','optasm']), 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, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
216
test('tc201', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
217
test('tc202', normal, compile, [''])
218
test('tc203', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
219
test('tc204', normal, compile, [''])
220
test('tc205', normal, compile, [''])
221
test('tc206', normal, compile, [''])
222
test('tc207', normal, compile, [''])
223
test('tc208', normal, compile, [''])
224
test('tc209', normal, compile, [''])
225
test('tc210', normal, compile, [''])
226
test('tc211', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
227
test('tc212', normal, compile, [''])
228
test('tc213', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones 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, [''])
Ian Lynagh's avatar
Ian Lynagh committed
232
test('tc217', reqlib('mtl'), compile, [''])
233 234
test('tc218', normal, compile, [''])
test('tc219', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
235
test('tc220', reqlib('mtl'), compile, [''])
236
test('tc221', normal, compile, [''])
237
test('tc222', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
238
test('tc223', reqlib('mtl'), compile, [''])
239
test('tc224', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
240
test('tc225', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
241
test('tc226', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
242
test('tc227', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
243
test('tc228', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
244
test('tc229', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
245
test('tc230', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
246
test('tc231', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
247
test('tc232', reqlib('mtl'), compile, [''])
248
test('tc233', normal, compile, [''])
249
test('tc234', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
250
test('tc235', normal, compile, [''])
Ian Lynagh's avatar
Ian Lynagh committed
251
test('tc236', if_compiler_lt('ghc', '6.9', expect_fail), compile, [''])
252
test('tc237', normal, compile, [''])
253
test('tc238', normal, compile, [''])
254

Simon Peyton Jones's avatar
Simon Peyton Jones committed
255 256
test('tc239', extra_clean(['Tc239_Help.hi', 'Tc239_Help.o']), 
     multimod_compile, ['tc239', '-v0'])
257 258
     
test('tc240', normal, compile, [''])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
259

260
test('FD1', normal, compile_fail, [''])
261 262 263 264
test('FD2', normal, compile_fail, [''])
test('FD3', normal, compile_fail, [''])
test('FD4', normal, compile, [''])

265 266
test('faxen', normal, compile, [''])

267 268 269 270
# Omitting temporarily
# test('syn-perf', normal, compile, ['-fcontext-stack=30'])
# test('syn-perf2', normal, compile, ['-fcontext-stack=30'])

271 272 273
test('LoopOfTheDay1', normal, compile, [''])
test('LoopOfTheDay2', normal, compile, [''])
test('LoopOfTheDay3', normal, compile, [''])