lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 01:36:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed writer tests not to use writerUserDataDir.

Browse Source
This commit is contained in:
John MacFarlane
2017-08-10 23:51:42 -07:00
parent 0283616a4a
commit 83d856ee6c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Tests/Writers/Docx.hs
+3 -3
View File
@@ -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)