[project @ 2005-10-25 12:53:59 by simonmar]

add LANGUAGE pragma tests

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

@@ -45,3 +45,4 @@ test('read034', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('read036', normal, compile, [''])
 test('read037', normal, compile, [''])
 test('read038', normal, compile, [''])
+test('read039', normal, compile, ['-fno-code'])

testsuite/tests/ghc-regress/parser/should_compile/read039.hs

+{-# LANGUAGE ForeignFunctionInterface, CPP #-}
+-- Test the LANGUAGE pragma
+module ShouldCompile where
+
+#if 1
+foreign import ccall "foo" foo :: Int -> IO Int
+#endif

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

@@ -35,3 +35,5 @@ test('read026', normal, compile_fail, [''])
 test('read027', expect_fail_if_compiler_type('ghc'), compile_fail, [''])
 
 test('read028', normal, compile_fail, [''])
+test('read029', normal, compile_fail, [''])
+test('read030', normal, compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_fail/read029.hs

+{-# LANGUAGE wibble wibble wibble #-}

testsuite/tests/ghc-regress/parser/should_fail/read029.stderr

+read029.hs:1:0: cannot parse LANGUAGE pragma

testsuite/tests/ghc-regress/parser/should_fail/read030.hs

+{-# LANGUAGE ExtensibleRecords, RestrictedTypeSynonyms, HereDocuments, UnsafeOverlappingInstances, NamedFieldPuns #-}

testsuite/tests/ghc-regress/parser/should_fail/read030.stderr

+read030.hs:1:0:
+    unsupported extensions: ExtensibleRecords,RestrictedTypeSynonyms,HereDocuments,UnsafeOverlappingInstances,NamedFieldPuns