diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-10-25 16:00:27 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-10-25 16:00:27 -0400 |
| commit | c0ddcb359e549b8631ec22c4aa8d97f72298be87 (patch) | |
| tree | 470c91ffc99a5a0003ae0392a9391f1bb2091a36 | |
| parent | 96c4b9e2e68295930b87e35cbff554623faea5a3 (diff) | |
| download | pandoc-c0ddcb359e549b8631ec22c4aa8d97f72298be87.tar.gz | |
Docx reader: add tests for i18n headers.
This tests blockquotes and headers in Russian. Previous tests make sure
that this doesn't produce a regression in en-us Header and Blockquotes.
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | tests/docx/i18n_blocks.docx | bin | 0 -> 13680 bytes | |||
| -rw-r--r-- | tests/docx/i18n_blocks.native | 8 |
3 files changed, 12 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 584e7cc94..3be80f9f5 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -160,6 +160,10 @@ tests = [ testGroup "inlines" "docx/danish_headers.docx" "docx/danish_headers.native" , testCompare + "i18n blocks (headers and blockquotes)" + "docx/i18n_blocks.docx" + "docx/i18n_blocks.native" + , testCompare "lists" "docx/lists.docx" "docx/lists.native" diff --git a/tests/docx/i18n_blocks.docx b/tests/docx/i18n_blocks.docx Binary files differnew file mode 100644 index 000000000..36341c363 --- /dev/null +++ b/tests/docx/i18n_blocks.docx diff --git a/tests/docx/i18n_blocks.native b/tests/docx/i18n_blocks.native new file mode 100644 index 000000000..582a7360d --- /dev/null +++ b/tests/docx/i18n_blocks.native @@ -0,0 +1,8 @@ +[Header 1 ("this-is-heading-1",[],[]) [Str "This",Space,Str "is",Space,Str "Heading",Space,Str "1"] +,Header 2 ("this-is-heading-2",[],[]) [Str "This",Space,Str "is",Space,Str "Heading",Space,Str "2"] +,BlockQuote + [Para [Str "This",Space,Str "is",Space,Str "Quote"] + ,Para [Str "This",Space,Str "is",Space,Str "Block",Space,Str "Text"]] +,BulletList + [[Para [Str "This",Space,Str "is",Space,Str "list",Space,Str "item",Space,Str "1"]] + ,[Para [Str "This",Space,Str "is",Space,Str "list",Space,Str "item",Space,Str "2"]]]] |