diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-30 12:46:53 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-07-30 12:46:53 -0400 |
| commit | 941df1b0de29ccde84505d625998e4dcb7ed0936 (patch) | |
| tree | 0b06aa1a6ddc26be9d41588ff68c4a66ceb9c7e6 /tests/Tests/Readers/Docx.hs | |
| parent | 9ce229570056ddb67f95d6b5c7b58ccf6d0413fd (diff) | |
| download | pandoc-941df1b0de29ccde84505d625998e4dcb7ed0936.tar.gz | |
Docx reader: change tests to make use of media bag.
Diffstat (limited to 'tests/Tests/Readers/Docx.hs')
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 3 |
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 |