diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-12-01 12:47:05 -0500 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
| commit | 5ede57122ce61d1504e81c6429ff26c38490aee6 (patch) | |
| tree | 1bfb24bda19ee17aa63f795e949b6f65545263fb /tests/Tests/Writers/Docx.hs | |
| parent | 3574b98f81c2c24f7ef31f8251ba88792a2c06f0 (diff) | |
| download | pandoc-5ede57122ce61d1504e81c6429ff26c38490aee6.tar.gz | |
Update all tests to use new readers and error structure.
Diffstat (limited to 'tests/Tests/Writers/Docx.hs')
| -rw-r--r-- | tests/Tests/Writers/Docx.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/Tests/Writers/Docx.hs b/tests/Tests/Writers/Docx.hs index cdaa2c097..548e9ddcf 100644 --- a/tests/Tests/Writers/Docx.hs +++ b/tests/Tests/Writers/Docx.hs @@ -7,7 +7,6 @@ import Tests.Helpers import Test.Framework import Text.Pandoc.Readers.Docx import Text.Pandoc.Writers.Docx -import Text.Pandoc.Error import System.FilePath ((</>)) import Text.Pandoc.Class (runIOorExplode) @@ -22,10 +21,10 @@ compareOutput opts nativeFileIn nativeFileOut = do nf' <- Prelude.readFile nativeFileOut let wopts = fst opts df <- runIOorExplode $ do - d <- handleError <$> readNative nf + d <- readNative nf writeDocx wopts{writerUserDataDir = Just (".." </> "data")} d - df' <- handleError <$> runIOorExplode (readNative nf') - let (p, _) = handleError $ readDocx (snd opts) df + df' <- runIOorExplode (readNative nf') + p <- runIOorExplode $ readDocx (snd opts) df return (p, df') testCompareWithOptsIO :: Options -> String -> FilePath -> FilePath -> IO Test |