aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-07-30 12:46:53 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-07-30 12:46:53 -0400
commit941df1b0de29ccde84505d625998e4dcb7ed0936 (patch)
tree0b06aa1a6ddc26be9d41588ff68c4a66ceb9c7e6 /tests/Tests
parent9ce229570056ddb67f95d6b5c7b58ccf6d0413fd (diff)
downloadpandoc-941df1b0de29ccde84505d625998e4dcb7ed0936.tar.gz
Docx reader: change tests to make use of media bag.
Diffstat (limited to 'tests/Tests')
-rw-r--r--tests/Tests/Readers/Docx.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs
index b1a966969..e8dd6b72e 100644
--- a/tests/Tests/Readers/Docx.hs
+++ b/tests/Tests/Readers/Docx.hs
@@ -37,7 +37,8 @@ compareOutput :: ReaderOptions
compareOutput opts docxFile nativeFile = do
df <- B.readFile docxFile
nf <- Prelude.readFile nativeFile
- return $ (noNorm (readDocx opts df), noNorm (readNative nf))
+ let (p, _) = readDocx opts df
+ return $ (noNorm p, noNorm (readNative nf))
testCompareWithOptsIO :: ReaderOptions -> String -> FilePath -> FilePath -> IO Test
testCompareWithOptsIO opts name docxFile nativeFile = do