summaryrefslogtreecommitdiff
path: root/tests/Tests/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-01-23 00:06:04 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:43 +0100
commit70b86f48e1cd11b2c861951ec0a121fa5a54f889 (patch)
tree4b171d1fd3fd8aa3fde364ec3d6ae4336bb29f8b /tests/Tests/Readers
parentbc7e846da61bdcd3ce6ef49e9d3e6bf4a0bd1a5d (diff)
Removed readerVerbosity and writerVerbosity.
API change. Also added a verbosity parameter to makePDF.
Diffstat (limited to 'tests/Tests/Readers')
-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 14bae19b0..8ced43907 100644
--- a/tests/Tests/Readers/Docx.hs
+++ b/tests/Tests/Readers/Docx.hs
@@ -62,7 +62,8 @@ testCompare = testCompareWithOpts defopts
testForWarningsWithOptsIO :: ReaderOptions -> String -> FilePath -> [String] -> IO Test
testForWarningsWithOptsIO opts name docxFile expected = do
df <- B.readFile docxFile
- warns <- runIOorExplode (readDocx opts df >> P.getWarnings)
+ logs <- runIOorExplode (readDocx opts df >> P.getLog)
+ let warns = [s | (WARNING, s) <- logs]
return $ test id name (unlines warns, unlines expected)
testForWarningsWithOpts :: ReaderOptions -> String -> FilePath -> [String] -> Test