Tests for TH, LHS and CPP with FileMapping

test/data/file-mapping/lhs/File.lhs

@@ -0,0 +1,2 @@
+> main :: IO ()
+> main = putStrLn "Hello World!"

test/data/file-mapping/lhs/File_Redir.lhs

@@ -0,0 +1 @@
+> main = putStrLn "Hello World!"

test/data/file-mapping/lhs/File_Redir_Lint.lhs

@@ -0,0 +1,4 @@
+> module File where
+
+> func :: Num a => a -> a -> a
+> func a b = (*) a b

test/data/file-mapping/preprocessor/File.hs

@@ -0,0 +1,7 @@
+{-# LANGUAGE CPP #-}
+#ifndef NOTHING
+main :: IO ()
+main = putStrLn "Hello World!"
+#else
+INVALID
+#endif

test/data/file-mapping/preprocessor/File_Redir.hs

@@ -0,0 +1,6 @@
+{-# LANGUAGE CPP #-}
+#ifndef NOTHING
+main = putStrLn "Hello World!"
+#else
+INVALID
+#endif

test/data/file-mapping/preprocessor/File_Redir_Lint.hs

@@ -0,0 +1,9 @@
+{-# LANGUAGE CPP #-}
+#ifndef NOTHING
+module File where
+
+func :: Num a => a -> a -> a
+func a b = (*) a b
+#else
+INVALID
+#endif