From da0d1d27ac98ca28e66bc2df3de2bce738068fb8 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Thu, 19 Jun 2014 19:33:22 -0400 Subject: Add tabs tests. --- tests/Tests/Readers/Docx.hs | 7 ++++++- tests/docx.tabs.docx | Bin 0 -> 12919 bytes tests/docx.tabs.native | 2 ++ 3 files changed, 8 insertions(+), 1 deletion(-) create mode 100644 tests/docx.tabs.docx create mode 100644 tests/docx.tabs.native diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 273f03f4d..3a13641a9 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -44,7 +44,12 @@ tests = [ testGroup "inlines" , testCompare "handling unicode input" "docx.unicode.docx" - "docx.unicode.native"] + "docx.unicode.native" + , testCompare + "literal tabs" + "docx.tabs.docx" + "docx.tabs.native" + ] , testGroup "blocks" [ testCompare "headers" diff --git a/tests/docx.tabs.docx b/tests/docx.tabs.docx new file mode 100644 index 000000000..6ff5f4bb1 Binary files /dev/null and b/tests/docx.tabs.docx differ diff --git a/tests/docx.tabs.native b/tests/docx.tabs.native new file mode 100644 index 000000000..05461f20b --- /dev/null +++ b/tests/docx.tabs.native @@ -0,0 +1,2 @@ +[Para [Str "Some",Space,Str "text",Space,Str "separated",Space,Str "by",Space,Str "a",Space,Str "tab."] +,Para [Str "Tab-indented",Space,Str "text."]] -- cgit v1.2.3