diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-23 00:06:04 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:43 +0100 |
| commit | 70b86f48e1cd11b2c861951ec0a121fa5a54f889 (patch) | |
| tree | 4b171d1fd3fd8aa3fde364ec3d6ae4336bb29f8b /tests/Tests | |
| parent | bc7e846da61bdcd3ce6ef49e9d3e6bf4a0bd1a5d (diff) | |
Removed readerVerbosity and writerVerbosity.
API change.
Also added a verbosity parameter to makePDF.
Diffstat (limited to 'tests/Tests')
| -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 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 |