From 332e2ba5b6ec2be880f082bb0fd746108b45799d Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Tue, 12 Feb 2019 17:26:37 -0500 Subject: Docx reader: Add test for reading sdts in footnotes. --- test/Tests/Readers/Docx.hs | 4 ++++ test/docx/sdt_in_footnote.docx | Bin 0 -> 26716 bytes test/docx/sdt_in_footnote.native | 1 + 3 files changed, 5 insertions(+) create mode 100644 test/docx/sdt_in_footnote.docx create mode 100644 test/docx/sdt_in_footnote.native diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index 48b9a27d0..25fde29b9 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -197,6 +197,10 @@ tests = [ testGroup "document" "inlines inside of Structured Document Tags" "docx/sdt_elements.docx" "docx/sdt_elements.native" + , testCompare + "Structured Document Tags in footnotes" + "docx/sdt_in_footnote.docx" + "docx/sdt_in_footnote.native" , testCompare "nested Structured Document Tags" "docx/nested_sdt.docx" diff --git a/test/docx/sdt_in_footnote.docx b/test/docx/sdt_in_footnote.docx new file mode 100644 index 000000000..547c2247a Binary files /dev/null and b/test/docx/sdt_in_footnote.docx differ diff --git a/test/docx/sdt_in_footnote.native b/test/docx/sdt_in_footnote.native new file mode 100644 index 000000000..d689c7d76 --- /dev/null +++ b/test/docx/sdt_in_footnote.native @@ -0,0 +1 @@ +[Para [Str "Lorem",Space,Str "ipsum",Space,Str "dolor",Space,Str "sit",Space,Str "amet.",Note [Para [Str "Vgl.",Space,Emph [Str "Bitzios"],Space,Str "u.",Space,Str "a.:",Space,Str "Dissonance",Space,Str "in",Space,Str "the",Space,Str "food",Space,Str "traceability",Space,Str "regulatory",Space,Str "environment",Space,Str "and",Space,Str "food",Space,Str "fraud,",Space,Str "in:",Space,Str "Dries",Space,Str "u.",Space,Str "a.",Space,Str "(Hrsg.):",Space,Str "It\8217s",Space,Str "a",Space,Str "jungle",Space,Str "out",Space,Str "there",Space,Str "-",Space,Str "the",Space,Str "strange",Space,Str "animals",Space,Str "of",Space,Str "economic",Space,Str "organization",Space,Str "in",Space,Str "agri-food",Space,Str "value",Space,Str "chains,",Space,Str "Wageningen",Space,Str "im",Space,Str "Druck,",Space,Str "hier",Space,Str "S.\160\&100-105."]]]] -- cgit v1.2.3