@@ -19,7 +19,7 @@ import Control.Monad
1919import Control.Exception (try, SomeException)
2020import Test.Hspec
2121import Data.Either.Compat
22−import System.Directory (createDirectory)
22+import System.Directory (createDirectory, createDirectoryIfMissing)
2323import Test.Mockery.Directory
2424
2525import qualified Data.Yaml as D
@@ -327,6 +327,11 @@ caseEncodeDecodeNonAsciiFileData = do
327327 D.encodeFile "accenté/bar.yaml" mySample
328328 out1 <- D.decodeFile "accenté/bar.yaml"
329329 out1 @?= Just mySample
330+
331+ createDirectoryIfMissing True "test/resources/accenté/"
332+
333+ readFile "test/resources/accent/foo.yaml" >>=
334+ writeFile "test/resources/accenté/foo.yaml"
330335 out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
331336 out2 @?= Just mySample
332337