aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-07-15 10:25:32 +0100
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-07-15 18:32:19 +0100
commit643435f1deb7db4d6795e0c9ac60f5daf1c8268f (patch)
tree577ce5d3ce00f2c60bc0d935b04cb003b7f78805
parent58838996259d02700db33ca3cbb3fcbca0688e51 (diff)
downloadpandoc-643435f1deb7db4d6795e0c9ac60f5daf1c8268f.tar.gz
Docx reader: Add test
Test auto ident header anchors with pandoc-generated pandoc.
-rw-r--r--pandoc.cabal2
-rw-r--r--tests/Tests/Readers/Docx.hs4
-rw-r--r--tests/docx.already_auto_ident.docxbin0 -> 8463 bytes
-rw-r--r--tests/docx.already_auto_ident.native2
4 files changed, 8 insertions, 0 deletions
diff --git a/pandoc.cabal b/pandoc.cabal
index d5e278adc..7b9c8b2ea 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -188,6 +188,8 @@ Extra-Source-Files:
tests/fb2.math.fb2,
tests/fb2.test-small.png,
tests/fb2.test.jpg,
+ tests/docx.already_auto_ident.native,
+ tests/docx.already_auto_ident.docx,
tests/docx.block_quotes.docx,
tests/docx.block_quotes_parse_indent.native,
tests/docx.headers.docx,
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs
index a379bbf23..7b737f95a 100644
--- a/tests/Tests/Readers/Docx.hs
+++ b/tests/Tests/Readers/Docx.hs
@@ -97,6 +97,10 @@ tests = [ testGroup "inlines"
"docx.headers.docx"
"docx.headers.native"
, testCompare
+ "headers already having auto identifiers"
+ "docx.already_auto_ident.docx"
+ "docx.already_auto_ident.native"
+ , testCompare
"lists"
"docx.lists.docx"
"docx.lists.native"
diff --git a/tests/docx.already_auto_ident.docx b/tests/docx.already_auto_ident.docx
new file mode 100644
index 000000000..ec2b348d7
--- /dev/null
+++ b/tests/docx.already_auto_ident.docx
Binary files differ
diff --git a/tests/docx.already_auto_ident.native b/tests/docx.already_auto_ident.native
new file mode 100644
index 000000000..054bfe34a
--- /dev/null
+++ b/tests/docx.already_auto_ident.native
@@ -0,0 +1,2 @@
+[Header 1 ("anchor-header",[],[]) [Str "Anchor",Space,Str "Header"]
+,Para [Str "A",Space,Link [Str "link"] ("#anchor-header","")]]