diff --git a/test/Tests/Writers/OOXML.hs b/test/Tests/Writers/OOXML.hs
index 56a27a4b8..f2957f7a6 100644
--- a/test/Tests/Writers/OOXML.hs
+++ b/test/Tests/Writers/OOXML.hs
@@ -84,6 +84,7 @@ testArchive writerFn opts fp = do
   txt <- T.readFile fp
   bs <- runIOorExplode $ do
     setTranslations "en-US"
+    setVerbosity ERROR -- otherwise test output is confusingly noisy
     readNative def txt >>= writerFn opts
   return $ toArchive bs