diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-31 09:36:42 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-31 09:36:42 -0500 |
| commit | 3f30455b4989e7a31a59b7278175476cfd95d41d (patch) | |
| tree | 72a768054e7476983966d33968d8351c4761f2c5 /test | |
| parent | 836153de43933dca3205e4459f55979d467f927e (diff) | |
Docx reader: tests for overlapping targets (anchor spans).
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | test/docx/overlapping_targets.docx | bin | 0 -> 13747 bytes | |||
| -rw-r--r-- | test/docx/overlapping_targets.native | 3 |
3 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 19aecd9ec..d79b8a063 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -179,6 +179,10 @@ tests = [ testGroup "inlines" "remove anchor spans with nothing pointing to them" "docx/unused_anchors.docx" "docx/unused_anchors.native" + , testCompare + "collapse overlapping targets (anchor spans)" + "docx/overlapping_targets.docx" + "docx/overlapping_targets.native" ] , testGroup "blocks" [ testCompare diff --git a/test/docx/overlapping_targets.docx b/test/docx/overlapping_targets.docx Binary files differnew file mode 100644 index 000000000..45ae7cd58 --- /dev/null +++ b/test/docx/overlapping_targets.docx diff --git a/test/docx/overlapping_targets.native b/test/docx/overlapping_targets.native new file mode 100644 index 000000000..17dcafd96 --- /dev/null +++ b/test/docx/overlapping_targets.native @@ -0,0 +1,3 @@ +[Para [Link ("",[],[]) [Str "One",Space,Str "link",Space,Str "to",Space,Str "one",Space,Str "target."] ("#Fizz","")] +,Para [Span ("Fizz",["anchor"],[]) [],Str "This",Space,Str "is",Space,Str "a",Space,Str "target",Space,Str "with",Space,Str "two",Space,Str "names."] +,Para [Link ("",[],[]) [Str "Another",Space,Str "link",Space,Str "to",Space,Str "the",Space,Str "same",Space,Str "target."] ("#Fizz","")]] |