all.T 4.69 KB
Newer Older
1 2 3 4
# Args to compile_and_run are:
#	extra compile flags
#	extra run flags
#	expected process return value, if not zero
5

6 7
def f( opts ):
  opts.extra_hc_opts = '-fglasgow-exts'
8

9
setTestOpts(f)
10

11 12 13
test('conc001', normal, compile_and_run, [''])
test('conc002', normal, compile_and_run, [''])
test('conc003', normal, compile_and_run, [''])
14 15 16 17

# Omit GHCi way - it blows up to 0.5G.  Something to do with the threaded RTS?
test('conc004', omit_ways(['ghci']), compile_and_run, [''])

18
test('conc006', normal, compile_and_run, [''])
ross's avatar
ross committed
19 20 21 22 23 24 25
test('conc007', compose(only_compiler_types(['ghc']),
			extra_run_opts('+RTS -H128M -RTS')),
		compile_and_run, [''])
test('conc008', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc009', compose(only_compiler_types(['ghc']), exit_code(1)),
		compile_and_run, [''])
test('conc010', only_compiler_types(['ghc']), compile_and_run, [''])
26
test('conc012', normal, compile_and_run, [''])
27

28
# hangs for ever with the threaded RTS
ross's avatar
ross committed
29 30 31
test('conc013', compose(only_compiler_types(['ghc']),
			omit_ways(['threaded'])),
		compile_and_run, [''])
32

ross's avatar
ross committed
33 34 35 36 37 38
test('conc014', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc015', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc016', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc017', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc018', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc019', compose(only_compiler_types(['ghc']),
39
			extra_run_opts('+RTS -K16m -RTS')),
ross's avatar
ross committed
40 41
		compile_and_run, [''])
test('conc020', only_compiler_types(['ghc']), compile_and_run, [''])
42 43
test('conc021', compose(omit_ways(['ghci']), exit_code(1)),
	compile_and_run, [''])
ross's avatar
ross committed
44 45 46
test('conc022', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc023', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc024', only_compiler_types(['ghc']), compile_and_run, [''])
47
test('conc025', normal, compile_and_run, [''])
ross's avatar
ross committed
48
test('conc026', only_compiler_types(['ghc']), compile_and_run, [''])
49 50 51
test('conc027', normal, compile_and_run, [''])
test('conc028', normal, compile_and_run, [''])
test('conc029', normal, compile_and_run, [''])
ross's avatar
ross committed
52 53 54
test('conc030', compose(only_compiler_types(['ghc']),
			extra_run_opts('+RTS -K2M -RTS')),
		compile_and_run, [''])
55 56 57 58

# Skip for now, hangs for ever (broken?)
test('conc031', skip, compile_and_run, [''])

ross's avatar
ross committed
59
test('conc032', only_compiler_types(['ghc']), compile_and_run, [''])
60 61

# Omit for GHCi, because it just sits there waiting for you to press ^C
62
# Also hangs with the threaded RTS
63
test('conc033', omit_ways(['ghci', 'threaded']), compile_and_run, [''])
64 65

# Omit for GHCi, because it just sits there waiting for you to press ^C
66
# Also hangs with the threaded RTS
ross's avatar
ross committed
67
test('conc034', compose(only_compiler_types(['ghc']),
68
			compose(omit_ways(['ghci','threaded', 'smp']), 
ross's avatar
ross committed
69
			extra_run_opts('+RTS -C0 -RTS'))),
70
		compile_and_run, [''])
71

ross's avatar
ross committed
72 73
test('conc035', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc036', only_compiler_types(['ghc']), compile_and_run, [''])
74

75 76
test('conc037', only_ways(['threaded','smp']), compile_and_run, [''])
test('conc038', only_ways(['threaded','smp']), compile_and_run, [''])
77

78
# Omit for GHCi, uses foreign export
79
test('conc039', omit_ways(['ghci']), compile_and_run, [''])
80 81 82

# Omit for GHCi, uses foreign export
# Omit threaded RTS: Hangs forever
ross's avatar
ross committed
83 84
test('conc040', compose(only_compiler_types(['ghc']),
			compose(exit_code(1),
85
			omit_ways(['ghci','threaded', 'smp']))),
ross's avatar
ross committed
86
		compile_and_run, [''])
87 88 89 90 91 92 93 94 95

# STM-related tests.  As with conc033, omit threaded in 047 and 048 because
# they rely on deadlock detection
test('conc041', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc042', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc043', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc044', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc045', only_compiler_types(['ghc']), compile_and_run, [''])
test('conc046', only_compiler_types(['ghc']), compile_and_run, [''])
96 97

# Omit GHCi for these two, since they appear to deadlock (23/11/2004 --SDM)
98
test('conc047', compose(only_compiler_types(['ghc']), 
99
                        omit_ways(['threaded','ghci'])), compile_and_run, [''])
100
test('conc048', compose(only_compiler_types(['ghc']), 
101
                        omit_ways(['threaded','ghci'])), compile_and_run, [''])
102

103
test('conc049', only_compiler_types(['ghc']), compile_and_run, ['-package stm'])
104

105 106 107 108
# skip this test right now - for some reason it goes on for ever in the 
# 'opt' ways. (ToDo)
# test('conc050', compose(only_compiler_types(['ghc']), extra_run_opts('10000')), compile_and_run, ['-package stm'])
test('conc050', skip, compile_and_run, ['-package stm'])
109 110

test('conc051', normal, compile_and_run, [''])
111 112

test('conc052', normal, compile_and_run, ['-package stm'])