@@ -8,6 +8,7 @@ import Test.Framework
88import Text.Pandoc.Readers.Docx
99import Text.Pandoc.Writers.Docx
1010import Text.Pandoc.Error
11+import System.FilePath ((</>))
1112
1213type Options = (WriterOptions, ReaderOptions)
1314
@@ -16,7 +17,9 @@ compareOutput :: Options
1617 -> IO (Pandoc, Pandoc)
1718compareOutput opts nativeFile = do
1819 nf <- Prelude.readFile nativeFile
19− df <- writeDocx (fst opts) (handleError $ readNative nf)
20+ let wopts = fst opts
21+ df <- writeDocx wopts{writerUserDataDir = Just (".." </> "data")}
22+ (handleError $ readNative nf)
2023 let (p, _) = handleError $ readDocx (snd opts) df
2124 return (p, handleError $ readNative nf)
2225