From 475b0dcb66c2a7cdc78022b4dcb7c7fbb17ab309 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sat, 30 Dec 2017 22:43:33 -0500
Subject: Docx reader: tests for removing unused anchors.

---
 test/Tests/Readers/Docx.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'test/Tests')

diff --git a/test/Tests/Readers/Docx.hs b/test/Tests/Readers/Docx.hs
index 5710a388f..19aecd9ec 100644
--- a/test/Tests/Readers/Docx.hs
+++ b/test/Tests/Readers/Docx.hs
@@ -175,6 +175,10 @@ tests = [ testGroup "inlines"
             "inlines inside of Structured Document Tags"
             "docx/sdt_elements.docx"
             "docx/sdt_elements.native"
+          , testCompare
+            "remove anchor spans with nothing pointing to them"
+            "docx/unused_anchors.docx"
+            "docx/unused_anchors.native"
           ]
         , testGroup "blocks"
           [ testCompare
-- 
cgit v1.2.3