From 83d856ee6c4065bc998832b60ec4347b0f528b6d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 10 Aug 2017 23:51:42 -0700 Subject: Fixed writer tests not to use writerUserDataDir. --- test/Tests/Writers/Docx.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test') diff --git a/test/Tests/Writers/Docx.hs b/test/Tests/Writers/Docx.hs index ec147604c..9e6150abc 100644 --- a/test/Tests/Writers/Docx.hs +++ b/test/Tests/Writers/Docx.hs @@ -3,7 +3,7 @@ module Tests.Writers.Docx (tests) where import System.FilePath (()) import Test.Tasty import Tests.Helpers -import Text.Pandoc.Class (runIOorExplode) +import Text.Pandoc.Class (runIOorExplode, setUserDataDir) import Text.Pandoc.Definition import Text.Pandoc.Options import Text.Pandoc.Walk @@ -24,9 +24,9 @@ compareOutput (wopts, ropts) nativeFileIn nativeFileOut = do nf <- UTF8.toText <$> BS.readFile nativeFileIn nf' <- UTF8.toText <$> BS.readFile nativeFileOut runIOorExplode $ do + setUserDataDir $ Just (".." "data") roundtripped <- readNative def nf >>= - writeDocx wopts{writerUserDataDir = Just (".." "data")} >>= - readDocx ropts + writeDocx wopts >>= readDocx ropts orig <- readNative def nf' return (walk fixImages roundtripped, walk fixImages orig) -- cgit v1.2.3