Ensure test succeeds with changes

snoyberg · Aug 14, 2016 · 29825c4 · 29825c4
1 parent d78abf1
commit 29825c4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/test/Data/YamlSpec.hs b/test/Data/YamlSpec.hs
@@ -19,6 +19,7 @@ import Control.Monad
 import Control.Exception (try, SomeException)
 import Test.Hspec
 import Data.Either.Compat
+import System.Directory (createDirectory)
 import Test.Mockery.Directory
 
 import qualified Data.Yaml as D
@@ -322,6 +323,7 @@ caseEncodeDecodeNonAsciiFileData :: Assertion
 caseEncodeDecodeNonAsciiFileData = do
   let mySample = (object ["foo" .= True])
   inTempDirectory $ do
+    createDirectory "accenté"
     D.encodeFile "accenté/bar.yaml" mySample
     out1 <- D.decodeFile "accenté/bar.yaml"
     out1 @?= Just mySample

diff --git a/yaml.cabal b/yaml.cabal
@@ -131,6 +131,7 @@ test-suite spec
                    , text
                    , aeson >= 0.7
                    , unordered-containers
+                   , directory
                    , vector
                    , resourcet
                    , aeson-qq