Major Overhaul of Pattern Match Checking (Fixes #595)
[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', normal, 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', normal, 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('ds062', normal, compile, [''])
67 test('ds063', normal, compile, [''])
68
69 test('T2409', normal, compile, [''])
70 test('T3263-1', normal, compile, ['-fwarn-unused-do-bind -XRecursiveDo'])
71 test('T3263-2', normal, compile, ['-fwarn-wrong-do-bind -XScopedTypeVariables -XRecursiveDo'])
72
73 test('GadtOverlap', normal, compile, ['-Wall'])
74 test('T2395', normal, compile, [''])
75 test('T4371', normal, compile, [''])
76 test('T4439', normal, compile, [''])
77 test('T4488', normal, compile, [''])
78 test('T4870',
79      [only_ways(['optasm']),
80       extra_clean(['T4870a.hi', 'T4870a.o'])],
81      multimod_compile,
82      ['T4870', '-v0'])
83 test('T5117', normal, compile, [''])
84 test('T5252',
85      extra_clean(['T5252a.hi', 'T5252a.o']),
86      run_command,
87      ['$MAKE -s --no-print-directory T5252'])
88 test('T5455', normal, compile, [''])
89 test('T5001',
90      [only_ways(['optasm']),
91       extra_clean(['T5001a.hi', 'T5001a.o'])],
92      multimod_compile,
93      ['T5001', '-v0'])
94
95 # T5252Take2 failed when compiled *wihtout* optimisation
96 test('T5252Take2',
97      extra_clean(['T5252Take2a.hi', 'T5252Take2a.o']),
98      run_command,
99      ['$MAKE -s --no-print-directory T5252Take2'])
100 test('T2431', normal, compile, ['-ddump-simpl -dsuppress-uniques'])
101 test('T7669', normal, compile, [''])
102 test('T8470', normal, compile, [''])
103 test('T10251', normal, compile, [''])
104 test('T10767', normal, compile, [''])
105 test('DsStrictWarn', normal, compile, [''])