From 0808449547a2ec3469dbcc82c1755d895c1057e5 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Mon, 11 Aug 2014 23:10:50 -0400 Subject: Docx: Add dropcap tests. --- tests/Tests/Readers/Docx.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'tests/Tests/Readers/Docx.hs') diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index c310cc8d7..65fdd4a55 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -82,14 +82,14 @@ compareMediaBagIO docxFile = do df <- B.readFile docxFile let (_, mb) = readDocx def df bools <- mapM - (\(fp, _, _) -> compareMediaPathIO fp mb docxFile) + (\(fp, _, _) -> compareMediaPathIO fp mb docxFile) (mediaDirectory mb) return $ and bools testMediaBagIO :: String -> FilePath -> IO Test testMediaBagIO name docxFile = do outcome <- compareMediaBagIO docxFile - return $ testCase name (assertBool + return $ testCase name (assertBool ("Media didn't match media bag in file " ++ docxFile) outcome) @@ -176,7 +176,10 @@ tests = [ testGroup "inlines" "code block" "docx.codeblock.docx" "docx.codeblock.native" - + , testCompare + "dropcap paragraphs" + "docx.drop_cap.docx" + "docx.drop_cap.native" ] , testGroup "track changes" [ testCompare @@ -229,4 +232,3 @@ tests = [ testGroup "inlines" ] ] - -- cgit v1.2.3