Skip more tests if using GHC < 6.9

testsuite/tests/ghc-regress/parser/should_compile/all.T

@@ -73,5 +73,5 @@ test('read058', normal, compile, [''])
 test('read059', normal, compile, [''])
 test('read060', normal, compile, [''])
 test('read061', normal, compile, [''])
-test('read062', normal, compile, [''])
-test('read063', normal, compile, [''])
+test('read062', if_compiler_lt('ghc', '6.9', skip), compile, [''])
+test('read063', if_compiler_lt('ghc', '6.9', skip), compile, [''])

testsuite/tests/ghc-regress/parser/should_fail/all.T

@@ -48,5 +48,5 @@ test('read038', normal, compile_fail, [''])
 test('read039', normal, compile_fail, [''])
 test('read040', normal, compile_fail, [''])
 test('read041', normal, compile_fail, [''])
-test('read042', normal, compile_fail, [''])
-test('read043', normal, compile_fail, [''])
+test('read042', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('read043', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_run/all.T

 test('read001', normal, compile_and_run, [''])
 test('read002', normal, compile_and_run, [''])
 test('read003', normal, compile_and_run, [''])
-test('read004', expect_broken_for(1257, ['ghci']), compile_and_run, [''])
+test('read004', compose(expect_broken_for(1257, ['ghci']),
+                        if_compiler_lt('ghc', '6.9', skip))
+              , compile_and_run, [''])

testsuite/tests/ghc-regress/rename/should_fail/all.T

@@ -50,5 +50,5 @@ test('rnfail045', normal, compile_fail, [''])
 test('rnfail046', normal, compile_fail, [''])
 test('rnfail047', normal, multimod_compile_fail, ['rnfail047', '-v0'])
 test('rnfail048', normal, compile_fail, [''])
-test('rnfail049', normal, compile_fail, [''])
-test('rnfail050', normal, compile_fail, [''])
+test('rnfail049', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('rnfail050', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])

testsuite/tests/ghc-regress/typecheck/should_compile/all.T

@@ -255,7 +255,7 @@ test('tc238', normal, compile, [''])
 test('tc239', extra_clean(['Tc239_Help.hi', 'Tc239_Help.o']), 
      multimod_compile, ['tc239', '-v0'])
      
-test('tc240', normal, compile, [''])
+test('tc240', if_compiler_lt('ghc', '6.9', skip), compile, [''])
 
 test('FD1', normal, compile_fail, [''])
 test('FD2', normal, compile_fail, [''])

testsuite/tests/ghc-regress/typecheck/should_fail/all.T

@@ -177,9 +177,9 @@ test('tcfail186',
      multimod_compile_fail, ['tcfail186', '-v0'])
 test('tcfail187', if_compiler_lt('ghc','6.9', namebase('tcfail187-6.8')), compile_fail, [''])
 test('tcfail188', normal, compile_fail, [''])
-test('tcfail189', normal, compile_fail, [''])
-test('tcfail190', normal, compile_fail, [''])
-test('tcfail191', normal, compile_fail, [''])
-test('tcfail192', normal, compile_fail, [''])
-test('tcfail193', normal, compile_fail, [''])
-test('tcfail194', normal, compile_fail, [''])
\ No newline at end of file
+test('tcfail189', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('tcfail190', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('tcfail191', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('tcfail192', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('tcfail193', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
+test('tcfail194', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
\ No newline at end of file