Do not quantify over the function itself in a RULE
[ghc.git] / testsuite / tests / deSugar / should_compile / all.T
1 # Just do the normal way...
2 def f( name, opts ):
3   opts.only_ways = ['normal']
4
5 setTestOpts(f)
6
7 test('ds-wildcard', normal, compile, [''])
8 test('ds001', normal, compile, [''])
9 test('ds002', normal, compile, [''])
10 test('ds003', normal, compile, [''])
11 test('ds004', normal, compile, [''])
12 test('ds005', normal, compile, [''])
13 test('ds006', normal, compile, [''])
14 test('ds007', normal, compile, [''])
15 test('ds008', normal, compile, [''])
16 test('ds009', normal, compile, [''])
17 test('ds010', normal, compile, [''])
18 test('ds011', normal, compile, [''])
19 test('ds012', normal, compile, [''])
20 test('ds013', normal, compile, [''])
21 test('ds014', normal, compile, [''])
22 test('ds015', normal, compile, [''])
23 test('ds016', normal, compile, [''])
24 test('ds017', normal, compile, [''])
25 test('ds018', normal, compile, [''])
26 test('ds019', normal, compile, [''])
27 test('ds020', normal, compile, [''])
28 test('ds021', normal, compile, [''])
29 test('ds022', normal, compile, [''])
30 test('ds023', normal, compile, [''])
31 test('ds024', normal, compile, [''])
32 test('ds025', normal, compile, [''])
33 test('ds026', normal, compile, [''])
34 test('ds027', normal, compile, [''])
35 test('ds028', normal, compile, [''])
36 test('ds029', normal, compile, [''])
37 test('ds030', normal, compile, [''])
38 test('ds031', normal, compile, [''])
39 test('ds032', normal, compile, [''])
40 test('ds033', normal, compile, [''])
41 test('ds034', normal, compile, [''])
42 test('ds035', only_compiler_types(['ghc']), compile, [''])
43 test('ds036', normal, compile, [''])
44 test('ds037', normal, compile, [''])
45 test('ds038', normal, compile, [''])
46 test('ds039', normal, compile, [''])
47 test('ds040', normal, compile, [''])
48 test('ds041', normal, compile, [''])
49 test('ds042', normal, compile, [''])
50 test('ds043', normal, compile, [''])
51 test('ds044', normal, compile, [''])
52 test('ds045', normal, compile, [''])
53 test('ds046', normal, compile, ['-funbox-strict-fields'])
54 test('ds047', normal, compile, [''])
55 test('ds048', normal, compile, [''])
56 test('ds050', normal, compile, [''])
57 test('ds051', normal, compile, [''])
58 test('ds052', normal, compile, [''])
59 test('ds053', normal, compile, [''])
60 test('ds054', normal, compile, [''])
61 test('ds055', only_compiler_types(['ghc']), compile, [''])
62 test('ds056', normal, compile, ['-Wall -fno-warn-tabs'])
63 test('ds057', normal, compile, [''])
64 test('ds058', normal, compile, ['-W -fno-warn-tabs'])
65 test('ds059', normal, compile, ['-W'])
66 test('ds060', expect_broken(322), compile, [''])
67 test('ds062', normal, compile, [''])
68 test('ds063', normal, compile, [''])
69
70 test('T2409', normal, compile, [''])
71 test('T3263-1', normal, compile, ['-fwarn-unused-do-bind -XRecursiveDo'])
72 test('T3263-2', normal, compile, ['-fwarn-wrong-do-bind -XScopedTypeVariables -XRecursiveDo'])
73
74 test('GadtOverlap', normal, compile, ['-Wall'])
75 test('T2395', normal, compile, [''])
76 test('T4371', normal, compile, [''])
77 test('T4439', normal, compile, [''])
78 test('T4488', when(compiler_lt('ghc', '7.1'), expect_fail), compile, [''])
79 test('T4870',
80      [only_ways(['optasm']),
81       only_compiler_types(['ghc']),
82       extra_clean(['T4870a.hi', 'T4870a.o'])],
83      multimod_compile,
84      ['T4870', '-v0'])
85 test('T5117', normal, compile, [''])
86 test('T5252',
87      extra_clean(['T5252a.hi', 'T5252a.o']),
88      run_command, 
89      ['$MAKE -s --no-print-directory T5252'])
90 test('T5455', normal, compile, [''])
91 test('T5001',
92      [only_ways(['optasm']),
93       only_compiler_types(['ghc']),
94       extra_clean(['T5001a.hi', 'T5001a.o'])],
95      multimod_compile,
96      ['T5001', '-v0'])
97
98 # T5252Take2 failed when compiled *wihtout* optimisation
99 test('T5252Take2',
100      extra_clean(['T5252Take2a.hi', 'T5252Take2a.o']),
101      run_command, 
102      ['$MAKE -s --no-print-directory T5252Take2'])
103 test('T2431', normal, compile, ['-ddump-simpl -dsuppress-uniques'])
104 test('T7669', normal, compile, [''])
105 test('T8470', normal, compile, [''])
106 test('T10251', normal, compile, [''])