5 files changed, 18 insertions, 0 deletions
diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs
index 80abc38f6..12007f502 100644
--- a/test/Tests/Readers/Docx.hs
+++ b/test/Tests/Readers/Docx.hs
@@ -405,6 +405,10 @@ tests = [ testGroup "document"
             "paragraph insertion/deletion (all)"
             "docx/paragraph_insertion_deletion.docx"
             "docx/paragraph_insertion_deletion_all.native"
+          , testCompareWithOpts def{readerTrackChanges=AllChanges}
+            "paragraph insertion/deletion (all)"
+            "docx/track_changes_scrubbed_metadata.docx"
+            "docx/track_changes_scrubbed_metadata.native"
           , testForWarningsWithOpts def{readerTrackChanges=AcceptChanges}
             "comment warnings (accept -- no warnings)"
             "docx/comments_warning.docx"
diff --git a/test/Tests/Writers/Docx.hs b/test/Tests/Writers/Docx.hs
index ccd31642a..8f051b4b7 100644
--- a/test/Tests/Writers/Docx.hs
+++ b/test/Tests/Writers/Docx.hs
@@ -150,6 +150,11 @@ tests = [ testGroup "inlines"
             def
             "docx/comments.native"
             "docx/golden/comments.docx"
+          , docxTest
+            "scrubbed metadata"
+            def
+            "docx/track_changes_scrubbed_metadata.native"
+            "docx/golden/track_changes_scrubbed_metadata.docx"
           ]
         , testGroup "custom styles"
           [ docxTest "custom styles without reference.docx"
diff --git a/test/docx/golden/track_changes_scrubbed_metadata.docx b/test/docx/golden/track_changes_scrubbed_metadata.docx
new file mode 100644
index 000000000..50951f0d2
--- /dev/null
+++ b/test/docx/golden/track_changes_scrubbed_metadata.docx
diff --git a/test/docx/track_changes_scrubbed_metadata.docx b/test/docx/track_changes_scrubbed_metadata.docx
new file mode 100644
index 000000000..07cac8c20
--- /dev/null
+++ b/test/docx/track_changes_scrubbed_metadata.docx
diff --git a/test/docx/track_changes_scrubbed_metadata.native b/test/docx/track_changes_scrubbed_metadata.native
new file mode 100644
index 000000000..529a9bca6
--- /dev/null
+++ b/test/docx/track_changes_scrubbed_metadata.native
@@ -0,0 +1,9 @@
+[Para [ Str "Here", Space, Str "is", Space, Str "a", Space
+      , Span ("",["deletion"],[("author","Author")]) [Str "dummy"]
+      , Span ("",["insertion"],[("author","Author")]) [Str "test"]
+      , Space
+      , Span ("",["comment-start"],[("id","3"),("author","Author")]) 
+        [Str "With",Space,Str "a",Space,Str "comment!"]
+      , Str "document",Span ("",["comment-end"],[("id","3")]) [],Str "."
+      ]
+]