all.T 10.2 KB
Newer Older
1 2 3 4 5 6 7
def no_core_lint(opts):
   opts.compiler_always_flags = \
       filter(lambda opt: opt != '-dcore-lint', opts.compiler_always_flags)

setTestOpts(no_core_lint)


Simon Marlow's avatar
Simon Marlow committed
8 9
test('T1969',
     [if_wordsize(32,
10
          compiler_stats_num_field('peak_megabytes_allocated', 13,
Simon Marlow's avatar
Simon Marlow committed
11
                                                               19)),
12 13 14
                             # expected value: 14 (x86/Windows 17/05/10)
                             #                 15 (x86/OS X)
                             #                 19 (x86/OS X)
Simon Marlow's avatar
Simon Marlow committed
15
      if_wordsize(64,
16
          compiler_stats_num_field('peak_megabytes_allocated', 24,
Simon Peyton Jones's avatar
Simon Peyton Jones committed
17
                                                               37)),
Simon Marlow's avatar
Simon Marlow committed
18
                                             # expected value: 28 (amd64/Linux)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
19
                                             # expected value: 34 (amd64/Linux)
Simon Marlow's avatar
Simon Marlow committed
20
      if_wordsize(32,
21
          compiler_stats_num_field('max_bytes_used', 5000000,
Simon Marlow's avatar
Simon Marlow committed
22
                                                     7000000)),
23
                             # expected value: 6707308 (x86/OS X)
24
                             #                 5717704 (x86/Windows 17/05/10)
25
                             #                 6149572 (x86/Linux, 31/12/09)
Simon Marlow's avatar
Simon Marlow committed
26
      if_wordsize(64,
27 28 29 30
          compiler_stats_range_field('max_bytes_used', 11000000, 15)),
                                  # expected value: 11178376 (amd64/Linux)
                                  # varies quite a lot with CLEANUP and BINDIST,
                                  # hence 15% range.
Simon Marlow's avatar
Simon Marlow committed
31 32
      if_wordsize(32,
          compiler_stats_num_field('bytes allocated', 210000000,
33
                                                      270000000)),
Simon Marlow's avatar
Simon Marlow committed
34 35 36 37
                                    # expected value: 215582916 (x86/Windows)
                                    #                 221667908 (x86/OS X)
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 420000000,
38
                                                      580000000)),
Simon Marlow's avatar
Simon Marlow committed
39 40
                                    # 17/11/2009:     434,845,560 (amd64/Linux)
                                    # 08/12/2009:     459,776,680 (amd64/Linux)
41
                                    # 17/05/2010:     519,377,728 (amd64/Linux)
42
                                    # 05/08/2011:     561,382,568 (amd64/OS X)
43 44 45 46
      only_ways(['normal']),
      extra_hc_opts('-dcore-lint')
          # Leave -dcore-lint on for this one test, so that we have something
          # that will catch a regression in -dcore-lint performance.
Simon Marlow's avatar
Simon Marlow committed
47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
      ],
     compile,
     [''])

# This one tests for the space leak in the native code generator,
# where it holds onto the entire asm output until the end.  The space
# leak reappears from time to time, so it's a good idea to have a test
# for it.  The residency of this test will jump by 10MB to 40MB or so
# on x86-64 if the space leak appears.

# Only run this one if we have an NCG:
if 'optasm' in config.compile_ways:
   conf_3294 = only_ways(['normal'])
else:
   conf_3294 = skip

test('T3294',
     [if_wordsize(32,
65
          compiler_stats_num_field('max_bytes_used', 14000000,
Simon Marlow's avatar
Simon Marlow committed
66
                                                     20000000)),
Ian Lynagh's avatar
Ian Lynagh committed
67
                                   # expected value: 17725476 (x86/OS X)
68
				   #                 14593500 (Windows)
Simon Marlow's avatar
Simon Marlow committed
69
      if_wordsize(64,
70
          compiler_stats_num_field('max_bytes_used', 26000000,
71
                                                     37000000)),
Simon Marlow's avatar
Simon Marlow committed
72 73 74
                                   # expected value: 32 478 408 (amd64/Linux)
                                   # (but varies a lot, depending on when
                                   # we GC relative to the peak).
75 76
                                   # (MCB: consistently reaching ~35 375 912 for
                                   # me lately on amd64/Darwin)
Simon Marlow's avatar
Simon Marlow committed
77
      if_wordsize(32,
78 79
          compiler_stats_num_field('bytes allocated', 650000000,
                                                      750000000)),
Simon Marlow's avatar
Simon Marlow committed
80 81 82 83 84 85 86 87 88
                                    # expected value: 815479800  (x86/Linux)
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 1200000000,
                                                      1500000000)),
                                    # expected value: 1357587088 (amd64/Linux)
      conf_3294
      ],
     compile,
     [''])
Ian Lynagh's avatar
Ian Lynagh committed
89

Simon Peyton Jones's avatar
Simon Peyton Jones committed
90
test('T4801',
91 92
     [ # expect_broken(5224),
       # temporarily unbroken (#5227)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
93
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
94
          compiler_stats_range_field('peak_megabytes_allocated', 30, 10)),
95 96
      if_wordsize(64, # sample from (amd64/Linux):
          compiler_stats_range_field('peak_megabytes_allocated', 47, 10)),
97
      # expected value: 58 (amd64/OS X):
98
      if_platform('x86_64-apple-darwin',
99
          compiler_stats_num_field('peak_megabytes_allocated', 56, 60)),
Ian Lynagh's avatar
Ian Lynagh committed
100
      # expected value: 228286660 (x86/OS X)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
101
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
102
          compiler_stats_range_field('bytes allocated', 185669232, 10)),
103 104
      if_wordsize(64, # (amd64/Linux):
          compiler_stats_range_field('bytes allocated', 360243576, 10)),
105 106 107 108
      # expected value: 510938976 (amd64/OS X):
      if_platform('x86_64-apple-darwin',
          compiler_stats_num_field('bytes allocated', 490000000,
                                                      530000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
109
      if_wordsize(32,
110 111
      #                    expected value: x86/OS X:  9651948
          compiler_stats_num_field('max_bytes_used',  9000000,
Simon Marlow's avatar
Simon Marlow committed
112
                                                     12000000)),
113
      # expected value: 18188272 (amd64/Linux)
114
      #                 10290952 (windows)
Simon Peyton Jones's avatar
Simon Peyton Jones committed
115
      if_wordsize(64,
Ian Lynagh's avatar
Ian Lynagh committed
116 117
          compiler_stats_num_field('max_bytes_used', 15000000,
                                                     20000000)),
118
      # expected value: 20486256 (amd64/OS X):
119
      if_platform('x86_64-apple-darwin',
120 121
          compiler_stats_num_field('max_bytes_used', 20000000,
                                                     23000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
122 123 124 125 126
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
127
test('T3064',
128
     [# expect_broken( 3064 ),
129
      # expected value: 9 (x86/Linux 30-03-2011):
Ian Lynagh's avatar
Ian Lynagh committed
130
      if_wordsize(32,
pcapriotti's avatar
pcapriotti committed
131
          compiler_stats_num_field('peak_megabytes_allocated', 7, 12)),
Ian Lynagh's avatar
Ian Lynagh committed
132
      # expected value: 18 (amd64/Linux):
Ian Lynagh's avatar
Ian Lynagh committed
133
      if_wordsize(64,
134
          compiler_stats_num_field('peak_megabytes_allocated', 30, 38)),
135
      # expected value: 56380288 (x86/Linux) (28/6/2011)
Ian Lynagh's avatar
Ian Lynagh committed
136
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
137
          compiler_stats_range_field('bytes allocated', 39800820, 10)),
138
      # expected value: 73259544 (amd64/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
139
      if_wordsize(64,
140 141
          compiler_stats_num_field('bytes allocated', 200000000,
                                                      280000000)),
142
      # expected value: 2247016 (x86/Linux) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
143
      if_wordsize(32,
144 145
          compiler_stats_num_field('max_bytes_used', 2000000,
                                                     3000000)),
146
      # expected value: 4032024 (amd64/Linux, intree) (28/6/2011):
Ian Lynagh's avatar
Ian Lynagh committed
147
      if_wordsize(64,
148 149
          compiler_stats_num_field('max_bytes_used', 10000000,
                                                     14000000)),
Ian Lynagh's avatar
Ian Lynagh committed
150 151 152 153 154
       only_ways(['normal'])
      ],
     compile,
     [''])

Ian Lynagh's avatar
Ian Lynagh committed
155 156 157 158 159
test('T4007',
     normal,
     run_command,
     ['$MAKE -s --no-print-directory T4007'])

160
test('T5030',
161
     [# expected value: 449368924 (x86/Linux)
162
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
163
          compiler_stats_range_field('bytes allocated', 176193448, 10)),
164
      # expected value: 346750856 (amd64/Linux):
165
      if_wordsize(64,
166 167
          compiler_stats_num_field('bytes allocated', 300000000,
                                                      400000000)),
168 169 170 171 172
       only_ways(['normal'])
      ],
     compile,
     ['-fcontext-stack=300'])

Simon Peyton Jones's avatar
Simon Peyton Jones committed
173
test('T5631',
Simon Marlow's avatar
Simon Marlow committed
174 175
     [if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 392904228, 10)),
176
      # expected value: 774,595,008 (amd64/Linux):
Simon Peyton Jones's avatar
Simon Peyton Jones committed
177
      if_wordsize(64,
178 179
          compiler_stats_num_field('bytes allocated', 600000000,
                                                      900000000)),
Simon Peyton Jones's avatar
Simon Peyton Jones committed
180 181 182 183 184
       only_ways(['normal'])
      ],
     compile,
     [''])

185 186 187
test('parsing001',
     [# expected value: ?
      if_wordsize(32,
188 189
          compiler_stats_num_field('bytes allocated', 280000000,
                                                      320000000)),
190 191 192
      # expected value: 587079016 (amd64/Linux):
      if_wordsize(64,
          compiler_stats_num_field('bytes allocated', 540000000,
193
                                                      620000000)),
194 195 196 197 198
       only_ways(['normal']),
      ],
     compile_fail, [''])


199 200 201 202 203 204
test('T783',
     [ only_ways(['normal']),  # no optimisation for this one
      # expected value: 175,569,928 (x86/Linux)
      if_wordsize(32,
          compiler_stats_num_field('bytes allocated', 125000000,
                                                      225000000)),
205
      # sample: 349263216 (amd64/Linux)
206
      if_wordsize(64,
207
          compiler_stats_range_field('bytes allocated', 349263216, 10))
208 209
      ],
      compile,[''])
210 211 212

test('T5321Fun',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
213
      # sample from x86/Linux
214
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
215
          compiler_stats_range_field('bytes allocated', 341591280, 10)),
216
      # expected value: 669165280 (amd64/Linux):
217
      if_wordsize(64,
218
          compiler_stats_range_field('bytes allocated', 585521080, 10))
219 220 221 222 223
      ],
      compile,[''])

test('T5321FD',
     [ only_ways(['normal']),  # no optimisation for this one
Simon Marlow's avatar
Simon Marlow committed
224
      # sample from x86/Linux
225
      if_wordsize(32,
Simon Marlow's avatar
Simon Marlow committed
226
          compiler_stats_range_field('bytes allocated', 257175456, 10)),
227
      # expected value: 500642456 (amd64/Linux):
228
      if_wordsize(64,
229
          compiler_stats_range_field('bytes allocated', 418306336, 10))
230 231
      ],
      compile,[''])
Ian Lynagh's avatar
Ian Lynagh committed
232 233 234

test('T5642',
     [ only_ways(['normal']),
Simon Marlow's avatar
Simon Marlow committed
235 236
      if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 1893427932, 10)),
237 238

      # sample: 3926235424 (amd64/Linux, 15/2/2012)
Ian Lynagh's avatar
Ian Lynagh committed
239
      if_wordsize(64,
240
          compiler_stats_range_field('bytes allocated', 3361296144, 10))
Ian Lynagh's avatar
Ian Lynagh committed
241 242
      ],
      compile,['-O'])
Simon Peyton Jones's avatar
Simon Peyton Jones committed
243 244 245 246 247 248 249 250 251 252 253

test('T5837',
     [ only_ways(['normal']),
      if_wordsize(32, # sample from x86/Linux
          compiler_stats_range_field('bytes allocated', 40000000, 10)),

      # sample: 3926235424 (amd64/Linux, 15/2/2012)
      if_wordsize(64,
          compiler_stats_range_field('bytes allocated', 79110184, 10))
      ],
      compile_fail,['-fcontext-stack=50'])