diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-29 23:37:00 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-29 23:37:00 -0400 |
| commit | 1405e7b7091dedb50578c9e0cafd62f2c77ca689 (patch) | |
| tree | 217aa511b09df81450f0a9a9712f630309aaca09 | |
| parent | 0f59196e0ef2f0977d404699ae16a48009fa7632 (diff) | |
| download | pandoc-1405e7b7091dedb50578c9e0cafd62f2c77ca689.tar.gz | |
Docx reader: Add tests for hanging indent handline.
We want to treat it as a plain paragraph if the hanging amount is
greater to or equal to the left indent---i.e., if the first line has
zero indentation. But we still want it to be a block quote if it starts
to the right of the margin. Someone might format verse with wrapping
lines with a hanging indent, for example.
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | tests/docx.hanging_indent.docx | bin | 0 -> 29924 bytes | |||
| -rw-r--r-- | tests/docx.hanging_indent.native | 3 |
3 files changed, 7 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 8c51217cf..a379bbf23 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -113,6 +113,10 @@ tests = [ testGroup "inlines" "docx.block_quotes.docx" "docx.block_quotes_parse_indent.native" , testCompare + "hanging indents" + "docx.hanging_indent.docx" + "docx.hanging_indent.native" + , testCompare "tables" "docx.tables.docx" "docx.tables.native" diff --git a/tests/docx.hanging_indent.docx b/tests/docx.hanging_indent.docx Binary files differnew file mode 100644 index 000000000..6f62dc731 --- /dev/null +++ b/tests/docx.hanging_indent.docx diff --git a/tests/docx.hanging_indent.native b/tests/docx.hanging_indent.native new file mode 100644 index 000000000..138a6967f --- /dev/null +++ b/tests/docx.hanging_indent.native @@ -0,0 +1,3 @@ +[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "hanging",Space,Str "indent,",Space,Str "with",Space,Str "the",Space,Str "left",Space,Str "side",Space,Str "set",Space,Str "to",Space,Str "the",Space,Str "left",Space,Str "margin,",Space,Str "and",Space,Str "it",Space,Str "wraps",Space,Str "around",Space,Str "the",Space,Str "line."] +,BlockQuote + [Para [Str "Five",Space,Str "years",Space,Str "have",Space,Str "passed,",Space,Str "five",Space,Str "summers",Space,Str "with",Space,Str "the",Space,Str "length"]]] |