@@ -19,7 +19,7 @@ import Control.Monad
19import Control.Exception (try, SomeException)
19import Control.Exception (try, SomeException)
20import Test.Hspec
20import Test.Hspec
21import Data.Either.Compat
21import Data.Either.Compat
22−import System.Directory (createDirectory)
22+import System.Directory (createDirectory, createDirectoryIfMissing)
23import Test.Mockery.Directory
23import Test.Mockery.Directory
25import qualified Data.Yaml as D
25import qualified Data.Yaml as D
@@ -327,6 +327,11 @@ caseEncodeDecodeNonAsciiFileData = do
327 D.encodeFile "accenté/bar.yaml" mySample
327 D.encodeFile "accenté/bar.yaml" mySample
328 out1 <- D.decodeFile "accenté/bar.yaml"
328 out1 <- D.decodeFile "accenté/bar.yaml"
329 out1 @?= Just mySample
329 out1 @?= Just mySample
331+ createDirectoryIfMissing True "test/resources/accenté/"
333+ readFile "test/resources/accent/foo.yaml" >>=
334+ writeFile "test/resources/accenté/foo.yaml"
330 out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
335 out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
331 out2 @?= Just mySample
336 out2 @?= Just mySample