4fdc359f134dabbf56f8c8713a813b7df69e5a6c
[ghc.git] / testsuite / tests / parser / should_compile / all.T
1
2 test('read001', normal, compile, [''])
3 test('read002', normal, compile, [''])
4 test('read003', normal, compile, [''])
5 test('read004', normal, compile, [''])
6 test('read005', normal, compile, [''])
7
8 # Missing:
9 # test('read006', normal, compile, [''])
10 # test('read007', normal, compile, [''])
11
12 test('read008', normal, compile, [''])
13 test('read009', normal, compile, [''])
14 test('read010', normal, compile, [''])
15 test('read011', normal, compile, [''])
16
17 # Missing:
18 # test('read012', normal, compile, [''])
19 # test('read013', normal, compile, [''])
20
21 test('read014', normal, compile, ['-Wall -fno-warn-orphans'])
22 test('read015', normal, compile, [''])
23 test('read016', normal, compile, [''])
24 test('read017', normal, compile, [''])
25 test('read018', normal, compile, [''])
26 test('read019', normal, compile, [''])
27
28 # Missing:
29 # test('read020', normal, compile, [''])
30
31 test('read021', normal, compile, [''])
32 test('read022', normal, compile, [''])
33
34 # we don't support strict Haskell 98 with respect to qualified identifiers
35 # any more (read023), see #1215.  This test is in fact incorrect Haskell 98
36 # anyway, so expect_fail would be wrong.
37 test('read023', skip, compile, [''])
38
39 test('read024', normal, compile, [''])
40 test('read025', normal, compile, [''])
41 test('read026', normal, compile, [''])
42 test('read027', normal, compile, [''])
43 test('read028', normal, compile, [''])
44 test('read029', normal, compile, [''])
45 test('read030', normal, compile, [''])
46 test('read031', normal, compile, [''])
47 test('read032', normal, compile, [''])
48 test('read033', normal, compile, [''])
49 test('read034', normal, compile, [''])
50 test('read036', normal, compile, [''])
51 test('read037', normal, compile, [''])
52 test('read038', normal, compile, [''])
53 test('read039', normal, compile, ['-fno-code'])
54 test('read040', normal, compile, [''])
55 test('read041', literate, compile, [''])
56 test('read042', normal, compile, [''])
57 test('read043', normal, compile, [''])
58 test('read044', normal, compile, [''])
59 test('read045', normal, compile, [''])
60 test('read046', normal, compile, [''])
61 test('read047', normal, compile, [''])
62 test('read048', normal, compile, [''])
63 test('read049', normal, compile, [''])
64 test('read050', normal, compile, [''])
65 test('read051', normal, compile, [''])
66 test('read052', normal, compile, [''])
67 test('read053', normal, compile, [''])
68 test('read054', normal, compile, [''])
69 test('read055', normal, compile, [''])
70 test('read056', normal, compile, [''])
71 test('read057', normal, compile, [''])
72 test('read058', normal, compile, [''])
73 test('read059', normal, compile, [''])
74 test('read060', normal, compile, [''])
75 test('read061', normal, compile, [''])
76 test('read062', normal, compile, [''])
77 test('read063', normal, compile, [''])
78 test('read064', normal, compile, [''])
79 test('read066', normal, compile, [''])
80 test('read067', normal, compile, [''])
81 test('read068', normal, compile, [''])
82 test('read069', normal, compile, [''])
83 test('read_1821', normal, compile, [''])
84 test('T2245', normal, compile, ['-fwarn-type-defaults'])
85 test('T3303', [], multimod_compile, ['T3303', '-v0'])
86 test('T3741', normal, compile, [''])
87 test('DoAndIfThenElse', normal, compile, [''])
88 test('BlockArguments', normal, compile, [''])
89 test('BlockArgumentsLambdaCase', normal, compile, [''])
90 test('NoBlockArguments', normal, compile, [''])
91 test('NondecreasingIndentation', normal, compile, [''])
92 test('mc15', normal, compile, [''])
93 test('mc16', normal, compile, [''])
94 test('EmptyDecls', normal, compile, [''])
95 test('ParserLambdaCase', [], compile, [''])
96
97 test('ColumnPragma', normal, compile, [''])
98 test('T5243', [], multimod_compile, ['T5243', ''])
99 test('T7118', normal, compile, [''])
100 test('T7776', normal, compile, [''])
101 test('RdrNoStaticPointers01', [], compile, [''])
102 test('T5682', normal, compile, [''])
103 test('T8258', normal, compile, [''])
104 test('T8708', normal, compile, [''])
105 test('T9723a', normal, compile, [''])
106 test('T9723b', normal, compile, [''])
107 test('T10188', normal, compile, [''])
108 test('VtaParse', normal, compile, [''])
109 test('T10196', normal, compile, [''])
110 test('T10379', normal, compile, [''])
111 test('T10582', expect_broken(10582), compile, [''])
112 test('T11622', normal, compile, [''])
113 test('DumpParsedAst',      normal, compile, ['-dsuppress-uniques -ddump-parsed-ast'])
114 test('DumpRenamedAst',     normal, compile, ['-dsuppress-uniques -ddump-rn-ast'])
115 test('DumpTypecheckedAst', normal, compile, ['-dsuppress-uniques -ddump-tc-ast'])
116 test('T12045e', normal, compile, [''])
117 test('T13087', normal, compile, [''])
118 test('T13747', normal, compile, [''])
119 test('T14189',     normal, compile, ['-dsuppress-uniques -ddump-rn-ast'])
120 test('T13986', normal, compile, [''])
121 test('T10855', normal, compile, [''])
122 test('T13600a', normal, compile, [''])
123 test('T13600b', normal, compile, ['-Wno-missing-signatures -Wno-unused-matches'])
124 test('T15139', normal, compile, ['-Wincomplete-patterns -fdiagnostics-show-caret'])
125 test('T15323', normal, compile, ['-dsuppress-uniques -ddump-parsed-ast'])
126 test('KindSigs', normal, compile, ['-dsuppress-uniques -ddump-parsed-ast'])
127
128
129 def only_MG_loc(x):
130     """
131     Only compares the location embedded inside the MatchGroup, which has the form
132     (MG
133       (NoExt)
134       ({ <location>
135     """
136     ls = x.split("\n")
137     mgLocs = (loc.strip() for (mg,loc) in zip(ls,ls[2:])
138                 if mg.strip().startswith("(MG"))
139     return '\n'.join(mgLocs)
140 test('T15279', normalise_errmsg_fun(only_MG_loc), compile, [''])
141 test('T15457', normal, compile, [''])
142 test('T15675', normal, compile, [''])
143 test('T15781', normal, compile, [''])
144 test('T16339', normal, compile, [''])
145 test('T16619', [], multimod_compile, ['T16619', '-v0'])