all.T 3.4 KB
Newer Older
1
setTestOpts(only_compiler_types(['ghc']))
2
setTestOpts(omit_ways(['opt', 'optasm', 'hpc']))
3

4
5
6
7
8
9
test('Simple1', normal, compile, [''])
test('Simple2', normal, compile, [''])
test('Simple3', normal, compile, [''])
test('Simple4', normal, compile, [''])
test('Simple5', normal, compile, [''])
test('Simple6', normal, compile, [''])
10
test('Simple7', normal, compile, [''])
11
test('Simple8', expect_fail, compile, [''])
TomSchrijvers's avatar
TomSchrijvers committed
12
test('Simple9', normal, compile, [''])
13
test('Simple10', expect_fail, compile, [''])
14
test('Simple11', expect_fail, compile, [''])
15
test('Simple12', expect_fail_if_compiler_lt('ghc','6.9'), compile, [''])
16
test('Simple13', normal, compile, [''])
17
test('Simple14', expect_fail, compile, [''])
18
test('Simple15', expect_fail, compile, [''])
19
test('Simple16', normal, compile, [''])
rl@cse.unsw.edu.au's avatar
rl@cse.unsw.edu.au committed
20
test('Simple17', expect_fail, compile, [''])
21
test('Simple18', normal, compile, [''])
22
test('Simple19', normal, compile, [''])
23
test('Simple20', expect_fail, compile, [''])
24

25
test('ind1', normal, compile, [''])
26
27
test('ind2', expect_fail_ways_if_compiler_lt('ghc','6.9',['profc','profasm']),
             multimod_compile, ['ind2', '-v0'])
28
test('impexp', normal, multimod_compile, 
29
30
     ['Imp', '-Wnot -no-hs-main -no-link'])
clean(['Ind2_help.hi', 'Ind2_help.o', 'Exp.hi', 'Imp.o'])
31

32
test('ATLoop', normal, multimod_compile, ['ATLoop','-v0'])
33
34
clean(['ATLoop_Help.o','ATLoop_Help.hi'])

35
36
test('Deriving', normal, compile, [''])
test('DerivingNewType', expect_fail, compile, [''])
37
test('Records', normal, compile, [''])
38
39
40
41
42
43

# The point about this test is that it compiles NewTyCo1 and NewTyCo2
# *separately*
#
test('NewTyCo', ignore_output, run_command, ['$MAKE NewTyCo'])
clean(['NewTyCo1.o', 'NewTyCo1.hi', 'NewTyCo2.o', 'NewTyCo2.hi'])
44

45
test('Infix', normal, compile, [''])
46
test('Kind', normal, compile, [''])
47
48

test('GADT1', expect_fail, compile, [''])
49
test('GADT2', normal, compile, [''])
50
test('GADT3', expect_broken_for(1738, ['normal','optc']), compile, [''])
51
test('GADT4', expect_fail, compile, [''])
52
53
54
test('GADT5', expect_fail, compile, [''])
test('GADT6', expect_fail, compile, [''])
test('GADT7', expect_fail, compile, [''])
55
test('GADT8', normal, compile, [''])
56
test('GADT9', expect_fail, compile, [''])
57
test('GADT10', expect_fail, compile, [''])
58

59
test('Class1', normal, compile, [''])
60
test('Class2', normal, compile, [''])
61
test('Class3', expect_fail, compile, [''])
62

63
test('Refl', normal, compile, [''])
64
test('Refl2', expect_fail, compile, [''])
65

66
67
test('Rules1', normal, compile, [''])

68
69
test('RankN1', expect_fail, compile, [''])

70
test('Numerals', normal, compile, [''])
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

test('ColInference', normal, compile, [''])
test('ColInference2', normal, compile, [''])
test('ColInference3', normal, compile, [''])
test('ColInference4', normal, compile, [''])
test('ColInference5', normal, compile, [''])
test('ColInference6', normal, compile, [''])

test('ClassEqContext', normal, compile, [''])
test('ClassEqContext2', normal, compile, [''])
test('ClassEqContext3', normal, compile, [''])

test('Col', normal, compile, [''])
test('Col2', normal, compile, [''])

test('ColGivenCheck', normal, compile, [''])
test('ColGivenCheck2', normal, compile, [''])
88

TomSchrijvers's avatar
TomSchrijvers committed
89
test('InstEqContext', normal, compile, [''])
90
test('InstEqContext2', expect_fail, compile, [''])
91
test('InstEqContext3', normal, compile, [''])
92
93
94
95
96
97
98

test('HO', normal, compile, [''])

test('GivenCheck', normal, compile, [''])
test('GivenCheckSwap', normal, compile, [''])
test('GivenCheckDecomp', normal, compile, [''])
test('GivenCheckTop', normal, compile, [''])