diff options
| author | Stephan Meijer <me@stephanmeijer.com> | 2023-11-30 03:59:09 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-11-29 18:59:09 -0800 |
| commit | 2e8ecb3fba62723fe39599f9f0cb7f7a30a5ca19 (patch) | |
| tree | 96e23e78ccc9bc8a496328740fbfd422e02200ef /test | |
| parent | eff1790bbcce5d56e7a24a9cc2bd7c08e8961c84 (diff) | |
Docx reader: unwrap content of shaped textboxes...
* #9214 text in shape format test document
* #9214 support Text in Shape Format
* #9214 remove irrelevant code
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | test/docx/text_in_shape_format.docx | bin | 0 -> 42504 bytes | |||
| -rw-r--r-- | test/docx/text_in_shape_format.native | 33 |
3 files changed, 37 insertions, 0 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs index d9935967f..05b69abf6 100644 --- a/test/Tests/Readers/Docx.hs +++ b/test/Tests/Readers/Docx.hs @@ -235,6 +235,10 @@ tests = [ testGroup "document" "collapse overlapping targets (anchor spans)" "docx/overlapping_targets.docx" "docx/overlapping_targets.native" + , testCompare + "text in shape format" + "docx/text_in_shape_format.docx" + "docx/text_in_shape_format.native" ] , testGroup "blocks" [ testCompare diff --git a/test/docx/text_in_shape_format.docx b/test/docx/text_in_shape_format.docx Binary files differnew file mode 100644 index 000000000..763e62bf6 --- /dev/null +++ b/test/docx/text_in_shape_format.docx diff --git a/test/docx/text_in_shape_format.native b/test/docx/text_in_shape_format.native new file mode 100644 index 000000000..09cfa932c --- /dev/null +++ b/test/docx/text_in_shape_format.native @@ -0,0 +1,33 @@ +[ Para + [ Str "Last" + , Space + , Str "update:" + , Space + , Str "May" + , Space + , Str "1," + , Space + , Str "2017" + ] +, Para + [ Str "U" + , Str "sing" + , Space + , Str "Microsoft" + , Space + , Str "Word" + , Space + , Str "2007/2010" + , LineBreak + , Str "for" + , Space + , Str "Writing" + , Space + , Str "Technical" + , Space + , Str "Documents" + ] +, Para [ Str "Valter" , Space , Str "Kiisk" ] +, Para [ Str "Institute" , Space , Str "of" , Space , Str "Physics," , Space , Str "University" , Space , Str "of" , Space , Str "Tartu" ] +, Para [] +]
\ No newline at end of file |