211d0f9 · typeable/pandoc

git.iko.soy/typeable/pandoc

Tests: have docx writer test use runIOorExplode.

Note that part of the reason for making a pure writer is to have better tests, so this is a temporary fix.

commit211d0f95749aa4de916361463d5c0e246c8ff720 authorJesse Rosenthal <jrosenthal@jhu.edu> dateThu 24 Nov 2016, 10:36 (10 years ago) parent989971f

1 file changed+2−1

unifiedsplit

tests/Tests/Writers/Docx.hs+2−1

@@ -9,6 +9,7 @@ import Text.Pandoc.Readers.Docx

99import Text.Pandoc.Writers.Docx

1010import Text.Pandoc.Error

1111import System.FilePath ((</>))

12+import Text.Pandoc.Class (runIOorExplode)

1213

1314type Options = (WriterOptions, ReaderOptions)

1415

@@ -20,7 +21,7 @@ compareOutput opts nativeFileIn nativeFileOut = do

2021 nf <- Prelude.readFile nativeFileIn

2122 nf' <- Prelude.readFile nativeFileOut

2223 let wopts = fst opts

23− df <- writeDocx wopts{writerUserDataDir = Just (".." </> "data")}

24+ df <- runIOorExplode $ writeDocx wopts{writerUserDataDir = Just (".." </> "data")}

2425 (handleError $ readNative nf)

2526 let (p, _) = handleError $ readDocx (snd opts) df

2627 return (p, handleError $ readNative nf')