hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Test for file map logging when temp dir is proj. root subdir

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-09-19 09:44:57 +03:00 committed by Daniel Gröber
parent 0d42b66fc3
commit 21c4010010
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/FileMappingSpec.hs
View File

@ -163,6 +163,14 @@ spec = do
mapM_ (uncurry loadMappedFile) fm mapM_ (uncurry loadMappedFile) fm
checkSyntax ["File.hs"] checkSyntax ["File.hs"]
res `shouldBe` "File.hs:3:1:Warning: Top-level binding with no type signature: main :: IO ()\n" res `shouldBe` "File.hs:3:1:Warning: Top-level binding with no type signature: main :: IO ()\n"
it "works with full path as well" $ do
withDirectory_ "test/data/file-mapping/preprocessor" $ do
cwd <- getCurrentDirectory
let fm = [("File.hs", cwd </> "File_Redir.hs")]
res <- run defaultOptions $ do
mapM_ (uncurry loadMappedFile) fm
checkSyntax ["File.hs"]
res `shouldBe` "File.hs:3:1:Warning: Top-level binding with no type signature: main :: IO ()\n"
it "checks in-memory file" $ do it "checks in-memory file" $ do
withDirectory_ "test/data/file-mapping/preprocessor" $ do withDirectory_ "test/data/file-mapping/preprocessor" $ do
src <- readFile "File_Redir.hs" src <- readFile "File_Redir.hs"