git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: tests for removing unused anchors.
475b0dcJesse Rosenthal
test/Tests/Readers/Docx.hs+4
@@ -175,6 +175,10 @@ tests = [ testGroup "inlines"
175 "inlines inside of Structured Document Tags"
175 "inlines inside of Structured Document Tags"
176 "docx/sdt_elements.docx"
176 "docx/sdt_elements.docx"
177 "docx/sdt_elements.native"
177 "docx/sdt_elements.native"
178+ , testCompare
179+ "remove anchor spans with nothing pointing to them"
180+ "docx/unused_anchors.docx"
181+ "docx/unused_anchors.native"
178 ]
182 ]
179 , testGroup "blocks"
183 , testGroup "blocks"
180 [ testCompare
184 [ testCompare
test/docx/unused_anchors.docxnew file

Binary file not shown.

test/docx/unused_anchors.nativenew file+3
@@ -0,0 +1,3 @@
1+[Header 1 ("my-section",[],[]) [Str "My",Space,Str "Section"]
2+,Para [Link ("",[],[]) [Str "Here",Space,Str "is",Space,Str "a",Space,Str "link."] ("#Bar","")]
3+,Para [Span ("Bar",["anchor"],[]) [],Str "Here",Space,Str "is",Space,Str "the",Space,Str "target."]]