aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Docx.hs7
-rw-r--r--tests/docx.notes.native2
-rw-r--r--tests/docx.tabs.docxbin0 -> 12919 bytes
-rw-r--r--tests/docx.tabs.native2
4 files changed, 9 insertions, 2 deletions
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.notes.native b/tests/docx.notes.native
index 1e9b6bba4..5a94b1999 100644
--- a/tests/docx.notes.native
+++ b/tests/docx.notes.native
@@ -1,2 +1,2 @@
[Header 2 ("",[],[]) [Str "A",Space,Str "footnote"]
-,Para [Str "Test",Space,Str "footnote.",Note [Para [Space,Str "My",Space,Str "note."]],Space,Str "Test",Space,Str "endnote.",Note [Para [Space,Str "This",Space,Str "is",Space,Str "an",Space,Str "endnote",Space,Str "at",Space,Str "the",Space,Str "end",Space,Str "of",Space,Str "the",Space,Str "document."]]]]
+,Para [Str "Test",Space,Str "footnote.",Note [Para [Str "My",Space,Str "note."]],Space,Str "Test",Space,Str "endnote.",Note [Para [Str "This",Space,Str "is",Space,Str "an",Space,Str "endnote",Space,Str "at",Space,Str "the",Space,Str "end",Space,Str "of",Space,Str "the",Space,Str "document."]]]]
diff --git a/tests/docx.tabs.docx b/tests/docx.tabs.docx
new file mode 100644
index 000000000..6ff5f4bb1
--- /dev/null
+++ b/tests/docx.tabs.docx
Binary files 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."]]