diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/Docx.hs | 10 | ||||
| -rw-r--r-- | tests/docx.track_changes_deletion.docx | bin | 0 -> 13350 bytes | |||
| -rw-r--r-- | tests/docx.track_changes_deletion_only_ins.native | 1 | ||||
| -rw-r--r-- | tests/docx.track_changes_insertion.docx | bin | 0 -> 12956 bytes | |||
| -rw-r--r-- | tests/docx.track_changes_insertion_only_ins.native | 1 |
5 files changed, 12 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Docx.hs b/tests/Tests/Readers/Docx.hs index 4d062bbc0..f34e123ed 100644 --- a/tests/Tests/Readers/Docx.hs +++ b/tests/Tests/Readers/Docx.hs @@ -122,5 +122,15 @@ tests = [ testGroup "inlines" "docx.codeblock.native" ] + , testGroup "track changes" + [ testCompare + "insert insertion (insertions only)" + "docx.track_changes_insertion.docx" + "docx.track_changes_insertion_only_ins.native" + , testCompare + "skip deletion (insertions only)" + "docx.track_changes_deletion.docx" + "docx.track_changes_deletion_only_ins.native" + ] ] diff --git a/tests/docx.track_changes_deletion.docx b/tests/docx.track_changes_deletion.docx Binary files differnew file mode 100644 index 000000000..5cfdbeed8 --- /dev/null +++ b/tests/docx.track_changes_deletion.docx diff --git a/tests/docx.track_changes_deletion_only_ins.native b/tests/docx.track_changes_deletion_only_ins.native new file mode 100644 index 000000000..205c67810 --- /dev/null +++ b/tests/docx.track_changes_deletion_only_ins.native @@ -0,0 +1 @@ +[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "text",Space,Str "with",Space,Str "a",Space,Str "deletion."]] diff --git a/tests/docx.track_changes_insertion.docx b/tests/docx.track_changes_insertion.docx Binary files differnew file mode 100644 index 000000000..fbdc9003e --- /dev/null +++ b/tests/docx.track_changes_insertion.docx diff --git a/tests/docx.track_changes_insertion_only_ins.native b/tests/docx.track_changes_insertion_only_ins.native new file mode 100644 index 000000000..ca2e46df0 --- /dev/null +++ b/tests/docx.track_changes_insertion_only_ins.native @@ -0,0 +1 @@ +[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "text",Space,Str "with",Space,Str "two",Space,Str "exciting",Space,Str "insertions."]] |