all.T 9.17 KB
Newer Older
1
# Test +RTS -G1 here (it isn't tested anywhere else)
2
setTestOpts(unless(fast(), extra_ways(['g1'])))
3

Ian Lynagh's avatar
Ian Lynagh committed
4 5 6 7 8 9 10 11 12 13 14
test('cgrun001', normal, compile_and_run, [''])
test('cgrun002', normal, compile_and_run, [''])
test('cgrun003', normal, compile_and_run, [''])
test('cgrun004', normal, compile_and_run, [''])
test('cgrun005', normal, compile_and_run, [''])
test('cgrun006', normal, compile_and_run, [''])
test('cgrun007', normal, compile_and_run, [''])
test('cgrun008', normal, compile_and_run, [''])
test('cgrun009', normal, compile_and_run, [''])
test('cgrun010', normal, compile_and_run, [''])
test('cgrun011', normal, compile_and_run, [''])
15
test('cgrun012', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
16 17
test('cgrun013', normal, compile_and_run, [''])
test('cgrun014', normal, compile_and_run, [''])
18
test('cgrun015', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
19 20
test('cgrun016', exit_code(1), compile_and_run, [''])
test('cgrun017', normal, compile_and_run, [''])
21
test('cgrun018', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
22 23
test('cgrun019', normal, compile_and_run, [''])
test('cgrun020', normal, compile_and_run, [''])
Simon Marlow's avatar
Simon Marlow committed
24 25 26 27

# cgrun021 does some GC, so let's use it to test GC parameters
test('cgrun021', extra_ways(['nursery_chunks']), compile_and_run, [''])

Ian Lynagh's avatar
Ian Lynagh committed
28 29
test('cgrun022', normal, compile_and_run, [''])
test('cgrun024', normal, compile_and_run, [''])
30
test('cgrun025',
thomie's avatar
thomie committed
31
     [reqlib('regex-compat'), extra_run_opts('cgrun025.hs'), exit_code(1)],
32
     compile_and_run, ['-package regex-compat'])
33
test('cgrun026', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
34 35
test('cgrun027', normal, compile_and_run, [''])
test('cgrun028', normal, compile_and_run, [''])
36 37 38
test('cgrun031', normal, compile_and_run, [''])
test('cgrun032', normal, compile_and_run, [''])
test('cgrun033', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
39
test('cgrun034', normal, compile_and_run, [''])
40
test('cgrun035', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
41 42 43 44 45 46 47 48 49 50 51 52 53
test('cgrun036', normal, compile_and_run, [''])
test('cgrun037', normal, compile_and_run, [''])
test('cgrun038', normal, compile_and_run, [''])
test('cgrun039', normal, compile_and_run, [''])
test('cgrun040', normal, compile_and_run, [''])
test('cgrun043', normal, compile_and_run, [''])
test('cgrun044', normal, compile_and_run, [''])
test('cgrun045', exit_code(1), compile_and_run, [''])
test('cgrun046', normal, compile_and_run, [''])
test('cgrun047', normal, compile_and_run, [''])
test('cgrun048', normal, compile_and_run, [''])
test('cgrun049', normal, compile_and_run, ['-funbox-strict-fields'])
test('cgrun050', normal, compile_and_run, [''])
54
test('cgrun051', [exit_code(1)], compile_and_run, [''])
55
test('cgrun052', only_ways(['optasm']), compile_and_run, ['-funbox-strict-fields'])
Ian Lynagh's avatar
Ian Lynagh committed
56 57 58 59
test('cgrun053', normal, compile_and_run, [''])
test('cgrun054', normal, compile_and_run, [''])
test('cgrun055', normal, compile_and_run, [''])
test('cgrun056', normal, compile_and_run, [''])
60 61
test('cgrun057', [ only_ways(prof_ways),
                   extra_run_opts('+RTS -xc') ], compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
62 63 64
test('cgrun058', normal, compile_and_run, [''])
test('cgrun059', exit_code(1), compile_and_run, [''])
test('cgrun060',
65
     extra_run_opts('+RTS -K64k -RTS'),
66
     compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
67 68 69
test('cgrun061', normal, compile_and_run, [''])
test('cgrun062', normal, compile_and_run, [''])
test('cgrun063', normal, compile_and_run, [''])
tibbe's avatar
tibbe committed
70
test('cgrun064', normal, compile_and_run, [''])
71
test('cgrun065', normal, compile_and_run, [''])
72
test('cgrun066', normal, compile_and_run, [''])
73
test('cgrun067', [extra_files(['Cgrun067A.hs'])], compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
74
test('cgrun068', reqlib('random'), compile_and_run, [''])
75
test('cgrun069',
76
     [when(unregisterised(), expect_broken(15467)),
77 78 79
      omit_ways(['ghci'])],
     multi_compile_and_run,
     ['cgrun069', [('cgrun069_cmm.cmm', '')], ''])
tibbe's avatar
tibbe committed
80
test('cgrun070', normal, compile_and_run, [''])
81
test('cgrun071', [when(have_cpu_feature('sse4_2'), extra_hc_opts('-msse4.2'))], compile_and_run, [''])
thoughtpolice's avatar
thoughtpolice committed
82
test('cgrun072', normal, compile_and_run, [''])
83 84
test('cgrun075', normal, compile_and_run, [''])
test('cgrun076', normal, compile_and_run, [''])
85
test('cgrun077', [when(have_cpu_feature('bmi2'), extra_hc_opts('-mbmi2'))], compile_and_run, [''])
Simon Marlow's avatar
Simon Marlow committed
86

87 88 89 90 91 92 93 94 95 96
test('T1852', normal, compile_and_run, [''])
test('T1861', extra_run_opts('0'), compile_and_run, [''])
test('T2080', normal, compile_and_run, [''])
test('T2838', normal, compile_and_run, [''])
test('T3207', normal, compile_and_run, [''])
test('T3561', normal, compile_and_run, [''])
test('T3677', extra_run_opts('+RTS -K8k -RTS'), compile_and_run, [''])
test('T4441', normal, compile_and_run, [''])
test('T5149', omit_ways(['ghci']), multi_compile_and_run,
                 ['T5149', [('T5149_cmm.cmm', '')], ''])
Ömer Sinan Ağacan's avatar
Ömer Sinan Ağacan committed
97 98 99
test('T5129',
     # The bug is in simplifier when run with -O1 and above, so only run it
     # optimised, using any backend.
100
     only_ways(['optasm']),
Ömer Sinan Ağacan's avatar
Ömer Sinan Ağacan committed
101
     compile_and_run, [''])
102
test('T5626', exit_code(1), compile_and_run, [''])
103
test('T5747', when(arch('i386'), extra_hc_opts('-msse2')), compile_and_run, ['-O2'])
104
test('T5785', normal, compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
105
test('setByteArray', normal, compile_and_run, [''])
106
test('compareByteArrays', normal, compile_and_run, [''])
dterei's avatar
dterei committed
107

108
test('T6146', normal, compile_and_run, [''])
pcapriotti's avatar
pcapriotti committed
109
test('T5900', normal, compile_and_run, [''])
ian@well-typed.com's avatar
ian@well-typed.com committed
110
test('T7163', normal, compile_and_run, [''])
Simon Marlow's avatar
Simon Marlow committed
111

112 113 114
# T7319 now gives the same results in every 'way', so treat it as normal
test('T7319', exit_code(1), compile_and_run, [''])

Simon Marlow's avatar
Simon Marlow committed
115
# Gives different results when optimised, so restrict to just one way
116 117 118 119 120
#test('T7319', [ extra_ways(['prof']), only_ways(['prof']), exit_code(1),
#                req_profiling,
#                extra_hc_opts('-fprof-auto'),
#                extra_run_opts('+RTS -xc') ], compile_and_run, [''])

121 122
test('Word2Float32', unless(wordsize(32), skip), compile_and_run, [''])
test('Word2Float64', unless(wordsize(64), skip), compile_and_run, [''])
Simon Marlow's avatar
Simon Marlow committed
123 124

test('T7361', normal, compile_and_run, [''])
dterei's avatar
dterei committed
125
test('T7600', normal, compile_and_run, [''])
Jan Stolarek's avatar
Jan Stolarek committed
126
test('T8103', only_ways(['normal']), compile_and_run, [''])
127
test('T7953', reqlib('random'), compile_and_run, [''])
128
test('T8256', normal, compile_and_run, ['-dcore-lint -O1'])
Simon Marlow's avatar
Simon Marlow committed
129
test('T6084',normal, compile_and_run, ['-O2'])
130
test('CgStaticPointers', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
Facundo Domínguez's avatar
Facundo Domínguez committed
131
     compile_and_run, [''])
132 133
test('CgStaticPointersNoFullLazyness', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
     compile_and_run, ['-O -fno-full-laziness'])
134 135
test('StaticArraySize', [when(doing_ghci(), extra_hc_opts('-fobject-code'))],
     compile_and_run, ['-O2'])
136
test('StaticByteArraySize', normal, compile_and_run, ['-O2'])
137
test('CopySmallArray', normal, compile_and_run, [''])
138
test('CopySmallArrayStressTest', reqlib('random'), compile_and_run, [''])
139
test('SizeOfSmallArray', normal, compile_and_run, [''])
140
test('NewSmallArray', normal, compile_and_run, [''])
141
test('T9001', normal, compile_and_run, [''])
142
test('T9013', omit_ways(['ghci']),  # ghci doesn't support unboxed tuples
rwbarton's avatar
rwbarton committed
143
     compile_and_run, [''])
144
test('T9340', normal, compile_and_run, [''])
Simon Marlow's avatar
Simon Marlow committed
145
test('cgrun074', normal, compile_and_run, [''])
146 147
test('CmmSwitchTest32', unless(wordsize(32), skip), compile_and_run, [''])
test('CmmSwitchTest64', unless(wordsize(64), skip), compile_and_run, [''])
148
# Skipping WAY=ghci, because it is not broken.
149 150 151 152 153
test('T10245', normal, compile_and_run, [''])
test('T10246', normal, compile_and_run, [''])
test('T9533', normal, compile_and_run, [''])
test('T9533b', normal, compile_and_run, [''])
test('T9533c', normal, compile_and_run, [''])
154
test('T10414', [only_ways(['threaded2']), extra_ways(['threaded2']), req_smp],
155
     compile_and_run, ['-feager-blackholing'])
156 157
test('T10521', normal, compile_and_run, [''])
test('T10521b', normal, compile_and_run, [''])
158
test('T10870', when(wordsize(32), skip), compile_and_run, [''])
159
test('PopCnt', omit_ways(['ghci']), multi_compile_and_run,
160
                 ['PopCnt', [('PopCnt_cmm.cmm', '')], ''])
161
test('T12059', normal, compile_and_run, [''])
162
test('T12433', normal, compile_and_run, [''])
163
test('T12622', normal, multimod_compile_and_run, ['T12622', '-O'])
Ben Gamari's avatar
Ben Gamari committed
164
test('T12757', normal, compile_and_run, [''])
Ben Gamari's avatar
Ben Gamari committed
165
test('T12855', normal, compile_and_run, [''])
166
test('T9577', [ unless(arch('x86_64') or arch('i386'),skip),
Ben Gamari's avatar
Ben Gamari committed
167
                when(opsys('darwin'), expect_broken(12937)),
168
                when(opsys('mingw32'), expect_broken(12965)),
169
                when(unregisterised(), skip),
170
                only_ways(['normal']) ], compile_and_run, [''])
171

172
test('T13425', normal, compile_and_run, ['-O'])
173
test('castFloatWord', normal, compile_and_run, ['-dcmm-lint'])
174 175 176 177
test('T13825-unit',
     extra_run_opts('"' + config.libdir + '"'),
     compile_and_run,
     ['-package ghc'])
178
test('T14619', normal, compile_and_run, [''])
179
test('T14754', normal, compile_and_run, [''])
Sylvain Henry's avatar
Sylvain Henry committed
180
test('T14346', only_ways(['threaded1','threaded2']), compile_and_run, ['-O -threaded'])
181 182
test('T14251', [expect_broken_for(14251, ['optllvm'])],
     compile_and_run, [''])
183 184 185 186 187 188 189

# These actually used to fail with all optimisation settings, but adding -O just
# to make sure
test('T15696_1', normal, compile_and_run, ['-O'])
test('T15696_2', normal, compile_and_run, ['-O'])
# This requires -O
test('T15696_3', normal, compile_and_run, ['-O'])
190 191 192 193 194 195 196

test('T15892',
     [ ignore_stdout,
        # we want to do lots of major GC to make the bug more likely to
        # happen, so -G1 -A32k:
        extra_run_opts('+RTS -G1 -A32k -RTS') ],
     compile_and_run, ['-O'])
197
test('T16617', normal, compile_and_run, [''])