all.T 1.7 KB
Newer Older
Simon Marlow's avatar
Simon Marlow committed
1
2
3
4
5
6

test('space_leak_001',
     # Before trac #2747 was fixed this was 565.
     # Now it's: 3 (amd64/Linux)
     #           4 (x86/OS X)
     #           5 (x86/Linux)
7
     [stats_num_field('peak_megabytes_allocated', (4, 1)),
8
9
10
11
12
13
14
15
16
      stats_num_field('max_bytes_used',
          [(wordsize(64), 440000, 10),
                        # 440224 (amd64/Linux)
                        # 417016 (x86/OS X)
                        # 415672 (x86/Windows)
                        # 481456 (unreg amd64/Linux)
           (wordsize(32), 405650, 10)]),
             # 2013-02-10 372072 (x86/OSX)
             # 2013-02-10 439228 (x86/OSX)
17
18
19
20
21
      stats_num_field('bytes allocated', (9079316016, 1)),
                        # expected value: 9079316016 (amd64/Linux)
                        #                 9331570416 (x86/Linux)
                        #                 9329073952 (x86/OS X)
                        #                 9327959840 (x86/Windows)
22
      omit_ways(['profasm','profthreaded','threaded1','threaded2'])
Simon Marlow's avatar
Simon Marlow committed
23
24
25
26
      ],
     compile_and_run,
     [''])

27
28
29
test('T4334',
     # Test for a space leak in Data.List.lines (fixed with #4334)
     [extra_run_opts('1000000 2 t'),
30
      stats_num_field('peak_megabytes_allocated', (2, 1)),
31
      # prof ways don't work well with +RTS -V0
32
      omit_ways(['profasm','profthreaded'])
33
34
      ],
     compile_and_run, [''])
Ian Lynagh's avatar
Ian Lynagh committed
35
36
37
38

test('T2762',
     [# peak_megabytes_allocated is 2 with 7.0.2.
      # Was 57 with 6.12.3.
39
      stats_num_field('peak_megabytes_allocated', (2, 0)),
Ian Lynagh's avatar
Ian Lynagh committed
40
41
42
      only_ways(['normal']),
      extra_clean(['T2762A.hi', 'T2762A.o'])],
     compile_and_run, ['-O'])
Simon Marlow's avatar
Simon Marlow committed
43
44
45
46

test('T4018',
     [ only_ways(['optasm']), extra_run_opts('+RTS -M10m -RTS') ],
     compile_and_run, ['-fno-state-hack'])