Update 32-bit performace numbers (has not been done for ages)
[ghc.git] / testsuite / tests / perf / space_leaks / all.T
1
2 test('space_leak_001',
3      # Before trac #2747 was fixed this was 565.
4      # Now it's: 3 (amd64/Linux)
5      #           4 (x86/OS X)
6      #           5 (x86/Linux)
7      [stats_num_field('peak_megabytes_allocated', (3, 1)),
8                         # 3 (amd64/Linux, integer-gmp2)
9       stats_num_field('max_bytes_used',
10           [(wordsize(64), 440000, 15),
11                         # 440224 (amd64/Linux)
12                         # 417016 (x86/OS X)
13                         # 415672 (x86/Windows)
14                         # 481456 (unreg amd64/Linux)
15            (wordsize(32), 405650, 10)]),
16              # 2013-02-10 372072 (x86/OSX)
17              # 2013-02-10 439228 (x86/OSX)
18
19       stats_num_field('bytes allocated', 
20            [ (wordsize(64), 11315747416, 5),
21                         # expected value: 9079316016 (amd64/Linux)
22                         #                 9331570416 (x86/Linux)
23                         #                 9329073952 (x86/OS X)
24                         #                 9327959840 (x86/Windows)
25                         #                 11315747416 (amd64/Lnx, integer-gmp2)
26
27              (wordsize(32), 13550759068, 5),
28             # 2014-12-01  13550759068 (Windows)
29               
30             ]),
31       omit_ways(['profasm','profthreaded','threaded1','threaded2'])
32       ],
33      compile_and_run,
34      [''])
35
36 test('T4334',
37      # Test for a space leak in Data.List.lines (fixed with #4334)
38      [extra_run_opts('1000000 2 t'),
39       stats_num_field('peak_megabytes_allocated', (2, 1)),
40       # prof ways don't work well with +RTS -V0
41       omit_ways(['profasm','profthreaded'])
42       ],
43      compile_and_run, [''])
44
45 test('T2762',
46      [# peak_megabytes_allocated is 2 with 7.0.2.
47       # Was 57 with 6.12.3.
48       stats_num_field('peak_megabytes_allocated', (2, 0)),
49       only_ways(['normal']),
50       extra_clean(['T2762A.hi', 'T2762A.o'])],
51      compile_and_run, ['-O'])
52
53 test('T4018',
54      [ only_ways(['optasm']), extra_run_opts('+RTS -M10m -RTS') ],
55      compile_and_run, ['-fno-state-hack'])