Follow-up to #13887, for promoted infix constructors
[ghc.git] / testsuite / tests / th / all.T
index d73ad86..29a6334 100644 (file)
@@ -14,6 +14,7 @@ if config.have_ext_interp :
        setTestOpts(only_ways(['normal','ghci','ext-interp']))
 
 test('TH_mkName', normal, compile, ['-v0'])
+test('TH_overloadedlabels', normal, compile, ['-v0'])
 test('TH_1tuple', normal, compile_fail, ['-v0'])
 
 test('TH_repE2', normal, compile_and_run, [''])
@@ -71,11 +72,6 @@ def error_has(pattern):
     # the following fails only if both the command fails and the pattern is found
     return('bash -o pipefail -c \'! (! "$@" {swap12}) | grep {pattern} {swap12} &> /dev/null\' --'.format(**locals()))
 
-test('TH_addCStub1', normal, compile_and_run, ['-v0'])
-test('TH_addCStub2'
-     , [compile_cmd_prefix(error_has('TH_addCStub2.hs:13:'))]
-     , compile_fail, ['-v0'])
-
 test('TH_reifyMkName', normal, compile, ['-v0'])
 
 test('TH_reifyInstances', normal, compile, ['-v0'])
@@ -385,3 +381,15 @@ test('T13018', normal, compile, ['-v0'])
 test('T13123', normal, compile, ['-v0'])
 test('T13098', normal, compile, ['-v0'])
 test('T11046', normal, multimod_compile, ['T11046','-v0'])
+test('T13366', normal, compile_and_run, ['-lstdc++ -v0'])
+test('T13473', normal, multimod_compile_and_run,
+     ['T13473.hs', '-v0 ' + config.ghc_th_way_flags])
+test('T13587', expect_broken(13587), compile_and_run, ['-v0'])
+test('T13618', normal, compile_and_run, ['-v0'])
+test('T13642', normal, compile, ['-v0'])
+test('T13781', normal, compile, ['-v0'])
+test('T13782', normal, compile, [''])
+test('T13837', normal, compile_fail, ['-v0 -dsuppress-uniques'])
+test('T13856', normal, compile, ['-v0 -ddump-splices -dsuppress-uniques'])
+test('T13887', normal, compile_and_run, ['-v0'])
+test('T13968', normal, compile_fail, ['-v0'])