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

Disable lhs MemoryMapped test for now

Browse Source
This commit is contained in:
Nikolay Yakimov 2015-08-16 19:15:32 +03:00
parent 9a22662031
commit 20d6d4bae7
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test/FileMappingSpec.hs
View File

@ -155,14 +155,15 @@ spec = do
mapM_ (uncurry loadMappedFile) fm mapM_ (uncurry loadMappedFile) fm
checkSyntax ["File.lhs"] checkSyntax ["File.lhs"]
res `shouldBe` "File.lhs:1:3:Warning: Top-level binding with no type signature: main :: IO ()\n" res `shouldBe` "File.lhs:1:3:Warning: Top-level binding with no type signature: main :: IO ()\n"
it "checks in-memory file if one is specified and outputs original filename" $ do -- NOTE: GHC can't 'unliterate' a file in-memory, so this won't work
withDirectory_ "test/data/file-mapping/lhs" $ do -- it "checks in-memory file if one is specified and outputs original filename" $ do
src <- readFile "File_Redir.lhs" -- withDirectory_ "test/data/file-mapping/lhs" $ do
let fm = [("File.lhs", MemoryMapping $ Just src)] -- src <- readFile "File_Redir.lhs"
res <- run defaultOptions $ do -- let fm = [("File.lhs", MemoryMapping $ Just src)]
mapM_ (uncurry loadMappedFile) fm -- res <- run defaultOptions $ do
checkSyntax ["File.lhs"] -- mapM_ (uncurry loadMappedFile) fm
res `shouldBe` "File.lhs:1:3:Warning: Top-level binding with no type signature: main :: IO ()\n" -- checkSyntax ["File.lhs"]
-- res `shouldBe` "File.lhs:1:3:Warning: Top-level binding with no type signature: main :: IO ()\n"
-- NOTE: There is a bug in hlint that prevents it from linting lhs files. -- NOTE: There is a bug in hlint that prevents it from linting lhs files.
-- it "lints redirected file if one is specified and outputs original filename" $ do -- it "lints redirected file if one is specified and outputs original filename" $ do
-- withDirectory_ "test/data/file-mapping/lhs" $ do -- withDirectory_ "test/data/file-mapping/lhs" $ do