Test #9318 in typecheck/should_fail/T9318
[ghc.git] / testsuite / tests / typecheck / should_fail / all.T
index a84942f..b6b5572 100644 (file)
@@ -1,4 +1,4 @@
+
 test('tcfail001', normal, compile_fail, [''])
 test('tcfail002', normal, compile_fail, [''])
 test('tcfail003', normal, compile_fail, [''])
@@ -24,7 +24,7 @@ test('tcfail023', normal, compile_fail, [''])
 test('tcfail027', normal, compile_fail, [''])
 test('tcfail028', normal, compile_fail, [''])
 test('tcfail029', normal, compile_fail, [''])
-test('tcfail030', if_compiler_type('hugs', expect_fail), compile_fail, [''])
+test('tcfail030', when(compiler_type('hugs'), expect_fail), compile_fail, [''])
 test('tcfail031', normal, compile_fail, [''])
 test('tcfail032', normal, compile_fail, [''])
 test('tcfail033', normal, compile_fail, [''])
@@ -82,7 +82,7 @@ test('tcfail094', normal, compile_fail, [''])
 test('tcfail095', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail096', normal, compile_fail, [''])
 test('tcfail097', normal, compile_fail, [''])
-test('tcfail098', normal, compile, [''])
+test('tcfail098', normal, compile_fail, [''])
 test('tcfail099', normal, compile_fail, [''])
 test('tcfail100', normal, compile_fail, [''])
 test('tcfail101', normal, compile_fail, [''])
@@ -189,7 +189,7 @@ test('tcfail199', normal, compile_fail, [''])
 test('tcfail200', normal, compile_fail, [''])
 test('tcfail201', normal, compile_fail, [''])
 test('tcfail202', normal, compile_fail, [''])
-test('tcfail203', normal, compile, [''])
+test('tcfail203', normal, compile_fail, [''])
 test('tcfail203a', normal, compile_fail, [''])
 test('tcfail204', normal, compile_fail, [''])
 test('tcfail206', normal, compile_fail, [''])
@@ -214,10 +214,10 @@ test('T3102', normal, compile_fail, [''])
 test('T3613', normal, compile_fail, [''])
 test('fd-loop', normal, compile_fail, [''])
 test('T3950', normal, compile_fail, [''])
-test('T3966', normal, compile_fail, [''])
+test('T3966', normal, compile_fail, ['-O'])
 test('IPFail', normal, compile_fail, [''])
 
-test('T3468', extra_clean(['T3468.hi-boot', 'T3468.o-boot']), 
+test('T3468', extra_clean(['T3468.hi-boot', 'T3468.o-boot']),
      multimod_compile_fail, ['T3468', '-v0'])
 test('T2846b', normal, compile_fail, [''])
 test('FrozenErrorTests', normal, compile_fail, [''])
@@ -243,6 +243,11 @@ test('tcfail214', normal, compile_fail, [''])
 test('tcfail215', normal, compile_fail, [''])
 test('tcfail216', normal, compile_fail, [''])
 test('tcfail217', normal, compile_fail, [''])
+test('tcfail218', normal, compile_fail, [''])
+test('tcfail219', normal, multimod_compile_fail, ['tcfail219.hsig', '-sig-of base:Data.Bool'])
+test('tcfail220', normal, multimod_compile_fail, ['tcfail220.hsig', '-sig-of base:Prelude'])
+test('tcfail221', normal, multimod_compile_fail, ['tcfail221.hsig', '-sig-of base:Prelude'])
+test('tcfail222', normal, multimod_compile_fail, ['tcfail222.hsig', '-sig-of base:Data.STRef'])
 
 test('SilentParametersOverlapping', normal, compile_fail, [''])
 test('FailDueToGivenOverlapping', normal, compile_fail, [''])
@@ -278,7 +283,63 @@ test('FDsFromGivens', normal, compile_fail, [''])
 test('T7019', normal, compile_fail,[''])
 test('T7019a', normal, compile_fail,[''])
 test('T5978', normal, compile_fail, [''])
-test('TcMultiWayIfFail', if_compiler_lt('ghc', '7.5', skip), compile_fail, [''])
+test('TcMultiWayIfFail', when(compiler_lt('ghc', '7.5'), skip), compile_fail, [''])
 test('T2534', normal, compile_fail, [''])
 test('T7175', normal, compile_fail, [''])
 test('T7210', normal, compile_fail, [''])
+test('T6161', normal, compile_fail, [''])
+test('T7368', normal, compile_fail, [''])
+test('T7264', normal, compile_fail, [''])
+test('T6069', normal, compile_fail, [''])
+test('T7410', normal, compile_fail, [''])
+test('T7453', normal, compile_fail, [''])
+test('T7525', normal, compile_fail, [''])
+test('T7368a', normal, compile_fail, [''])
+test('T7545', normal, compile_fail, [''])
+test('T7279', normal, compile_fail, [''])
+test('T2247', normal, compile_fail, [''])
+test('T7609', normal, compile_fail, [''])
+test('T7645', normal, compile_fail, [''])
+test('T2354', normal, compile_fail, ['-O'])
+test('T7734', normal, compile_fail, [''])
+test('T7697', normal, compile_fail, [''])
+test('T7696', normal, compile_fail, [''])
+test('T7748a', normal, compile_fail, [''])
+test('TcNoNullaryTC', when(compiler_lt('ghc', '7.7'), skip), compile_fail, [''])
+test('TcNullaryTCFail', when(compiler_lt('ghc', '7.7'), skip), compile_fail, [''])
+test('T7857', normal, compile_fail, [''])
+test('T7778', normal, compile_fail, [''])
+test('T7851', normal, compile_fail, [''])
+test('T7856', normal, compile_fail, [''])
+test('T7869', normal, compile_fail, [''])
+test('T7892', normal, compile_fail, [''])
+test('T7809', normal, compile_fail, [''])
+test('T7989', normal, compile_fail, [''])
+test('T8142', normal, compile_fail, [''])
+test('T8262', normal, compile_fail, [''])
+test('TcCoercibleFail', when(compiler_lt('ghc', '7.7'), skip), compile_fail, [''])
+test('TcCoercibleFail2', when(compiler_lt('ghc', '7.7'), skip), compile_fail, [''])
+test('TcCoercibleFail3', when(compiler_lt('ghc', '7.7'), skip), compile_fail, [''])
+test('T8306', normal, compile_fail, [''])
+test('T8392a', normal, compile_fail, [''])
+test('T8428', normal, compile_fail, [''])
+test('T8450', normal, compile_fail, [''])
+test('T8514', normal, compile_fail, [''])
+test('ContextStack1', normal, compile_fail, ['-fcontext-stack=10'])
+test('ContextStack2', normal, compile_fail, ['-ftype-function-depth=10'])
+test('T8570', extra_clean(['T85570a.o', 'T8570a.hi','T85570b.o', 'T8570b.hi']),
+     multimod_compile_fail, ['T8570', '-v0'])
+test('T8603', normal, compile_fail, [''])
+test('T8806', normal, compile_fail, [''])
+test('T8912', normal, compile_fail, [''])
+test('T9033', normal, compile_fail, [''])
+test('T8883', normal, compile_fail, [''])
+test('T9196', normal, compile_fail, [''])
+test('T9305', normal, compile_fail, [''])
+test('T9323', normal, compile_fail, [''])
+test('T9415', normal, compile_fail, [''])
+test('T9612', normal, compile_fail, [''])
+test('T9634', normal, compile_fail, [''])
+test('T9739', normal, compile_fail, [''])
+test('T9774', normal, compile_fail, [''])
+test('T9318', normal, compile_fail, [''])