Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Tests: have docx writer test use runIOorExplode.

Browse source 
Note that part of the reason for making a pure writer is to have better
tests, so this is a temporary fix.
This commit is contained in:
Jesse Rosenthal 2016-11-24 10:36:30 -05:00 committed by John MacFarlane
parent 989971fce1
commit 211d0f9574
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/Tests/Writers/Docx.hs
View file

@ -9,6 +9,7 @@ import Text.Pandoc.Readers.Docx
import Text.Pandoc.Writers.Docx
import Text.Pandoc.Error
import System.FilePath ((</>))
import Text.Pandoc.Class (runIOorExplode)
type Options = (WriterOptions, ReaderOptions)
@ -20,7 +21,7 @@ compareOutput opts nativeFileIn nativeFileOut = do
nf <- Prelude.readFile nativeFileIn
nf' <- Prelude.readFile nativeFileOut
let wopts = fst opts
df <- writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
df <- runIOorExplode $ writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
(handleError $ readNative nf)
let (p, _) = handleError $ readDocx (snd opts) df
return (p, handleError $ readNative nf')