diff options
| -rw-r--r-- | pandoc.cabal | 1 | ||||
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 10 | ||||
| -rw-r--r-- | tests/docx.drop_cap.docx | bin | 0 -> 26931 bytes | |||
| -rw-r--r-- | tests/docx.drop_cap.native | 4 |
4 files changed, 11 insertions, 4 deletions
diff --git a/pandoc.cabal b/pandoc.cabal index 4b2da0f9e..587258dc2 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -177,6 +177,7 @@ Extra-Source-Files: tests/docx.codeblock.docx, tests/docx.deep_normalize.docx, tests/docx.definition_list.docx, + tests/docx.drop_cap.docx, tests/docx.hanging_indent.docx, tests/docx.headers.docx, tests/docx.image.docx, 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" ] ] - diff --git a/tests/docx.drop_cap.docx b/tests/docx.drop_cap.docx Binary files differnew file mode 100644 index 000000000..19fab4a52 --- /dev/null +++ b/tests/docx.drop_cap.docx diff --git a/tests/docx.drop_cap.native b/tests/docx.drop_cap.native new file mode 100644 index 000000000..e6eb29de7 --- /dev/null +++ b/tests/docx.drop_cap.native @@ -0,0 +1,4 @@ +[Para [Str "D",Str "rop",Space,Str "cap."] +,Para [Str "Next",Space,Str "paragraph."] +,Para [Str "D",Str "rop",Space,Str "cap",Space,Str "in",Space,Str "margin."] +,Para [Str "Drop",Space,Str "cap",Space,Str "(not",Space,Str "really)."]] |