Ensure the whole test fails without the fixes

Accented characters must be in the path argument, not just in the current working directory.
snoyberg · Aug 14, 2016 · d78abf1 · d78abf1
1 parent 5d4620e
commit d78abf1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/Data/YamlSpec.hs b/test/Data/YamlSpec.hs
@@ -321,9 +321,9 @@ caseEncodeDecodeFileData = withFile "" $ \fp -> do
 caseEncodeDecodeNonAsciiFileData :: Assertion
 caseEncodeDecodeNonAsciiFileData = do
   let mySample = (object ["foo" .= True])
-  inTempDirectoryNamed "accenté" $ do
-    D.encodeFile "bar.yaml" mySample
-    out1 <- D.decodeFile "bar.yaml"
+  inTempDirectory $ do
+    D.encodeFile "accenté/bar.yaml" mySample
+    out1 <- D.decodeFile "accenté/bar.yaml"
     out1 @?= Just mySample
   out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
   out2 @?= Just mySample