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

Better test for redirected check

Browse Source 
Output now doesn't depend on compiler version
This commit is contained in:
Nikolay Yakimov 2015-07-04 01:10:17 +03:00
parent 8f931eb928
commit c2ff5be4ea
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/FileMappingSpec.hs
View File

@ -88,7 +88,7 @@ spec = do
res <- run defaultOptions {fileMappings = fm} $ do res <- run defaultOptions {fileMappings = fm} $ do
loadMappedFiles loadMappedFiles
checkSyntax ["File.hs"] checkSyntax ["File.hs"]
res `shouldBe` "File.hs:1:1:Warning: Top-level binding with no type signature: main :: forall t. t\n" res `shouldBe` "File.hs:1:1: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 it "checks in-memory file if one is specified and outputs original filename" $ do
withDirectory_ "test/data/file-mapping" $ do withDirectory_ "test/data/file-mapping" $ do
let fm = [("File.hs", MemoryMapping $ Just "main = putStrLn \"Hello World!\"\n")] let fm = [("File.hs", MemoryMapping $ Just "main = putStrLn \"Hello World!\"\n")]

2
test/data/file-mapping/File_Redir.hs
View File

@ -1 +1 @@
main = undefined main = putStrLn "Hello World!"