on master help sign in
Don't modify source tree in tests
50c1f0bSimon Hengel
.gitignore−1
@@ -5,4 +5,3 @@ cabal-dev/
5cabal.sandbox.config
5cabal.sandbox.config
6.stack-work/
6.stack-work/
7*~
7*~
8−test/resources/unicode
test/Data/YamlSpec.hs+6−6
@@ -337,12 +337,12 @@ caseEncodeDecodeNonAsciiFileData = do
337 out1 <- D.decodeFile "accenté/bar.yaml"
337 out1 <- D.decodeFile "accenté/bar.yaml"
338 out1 @?= Just mySample
338 out1 @?= Just mySample
339
339
340+ c <- readFile "test/resources/accent/foo.yaml"
341+ inTempDirectory $ do
340− createDirectoryIfMissing True "test/resources/unicode/accenté/"
342+ createDirectoryIfMissing True "test/resources/unicode/accenté/"
341−
342− readFile "test/resources/accent/foo.yaml" >>=
343− writeFile "test/resources/unicode/accenté/foo.yaml"
343+ writeFile "test/resources/unicode/accenté/foo.yaml" c
344− out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
344+ out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
345− out2 @?= Just mySample
345+ out2 @?= Just mySample
346
346
347caseEncodeDecodeStrings :: Assertion
347caseEncodeDecodeStrings :: Assertion
348caseEncodeDecodeStrings = do
348caseEncodeDecodeStrings = do