Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx reader: Add tests for paragraph insertion/deletion.

Browse source
This commit is contained in:
Jesse Rosenthal 2018-01-02 11:24:26 -05:00
parent 2e90e2932c
commit a5b71a3c7f
5 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/Tests/Readers/Docx.hs
View file

@ -335,6 +335,18 @@ tests = [ testGroup "inlines"
"comments (all comments)"
"docx/comments.docx"
"docx/comments.native"
, testCompareWithOpts def{readerTrackChanges=AcceptChanges}
"paragraph insertion/deletion (accept)"
"docx/paragraph_insertion_deletion.docx"
"docx/paragraph_insertion_deletion_accept.native"
, testCompareWithOpts def{readerTrackChanges=RejectChanges}
"paragraph insertion/deletion (reject)"
"docx/paragraph_insertion_deletion.docx"
"docx/paragraph_insertion_deletion_reject.native"
, testCompareWithOpts def{readerTrackChanges=AllChanges}
"paragraph insertion/deletion (all)"
"docx/paragraph_insertion_deletion.docx"
"docx/paragraph_insertion_deletion_all.native"
, testForWarningsWithOpts def{readerTrackChanges=AcceptChanges}
"comment warnings (accept -- no warnings)"
"docx/comments_warning.docx"

BIN
test/docx/paragraph_insertion_deletion.docx Normal file
View file

Binary file not shown.

2
test/docx/paragraph_insertion_deletion_accept.native Normal file
View file

@ -0,0 +1,2 @@
[Para [Str "This",Space,Str "is",Space,Str "a"]
,Para [Str "split",Space,Str "Paragraph."]]

3
test/docx/paragraph_insertion_deletion_all.native Normal file
View file

@ -0,0 +1,3 @@
[Para [Str "This",Space,Str "is",Space,Str "a",Span ("",["paragraph-insertion"],[("author","Seeley, Jason"),("date","2017-09-17T16:39:00Z")]) []]
,Para [Str "split",Span ("",["paragraph-deletion"],[("author","Seeley, Jason"),("date","2017-09-17T16:39:00Z")]) []]
,Para [Str "Paragraph."]]

2
test/docx/paragraph_insertion_deletion_reject.native Normal file
View file

@ -0,0 +1,2 @@
[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "split"]
,Para [Str "Paragraph."]]