@@ -290,8 +290,7 @@ testWithNormalize normalizer pandocPath testname opts inp norm =
290 Just d -> [("DYLD_LIBRARY_PATH", d),
290 Just d -> [("DYLD_LIBRARY_PATH", d),
291 ("LD_LIBRARY_PATH", d)]
291 ("LD_LIBRARY_PATH", d)]
292 let env = dynlibEnv ++
292 let env = dynlibEnv ++
293− [("TMP","."),("LANG","en_US.UTF-8"),("HOME", "./"),
293+ [("TMP","."),("LANG","en_US.UTF-8"),("HOME", "./")]
294− ("pandoc_datadir","..")]
295 (ec, out) <- pipeProcess (Just env) pandocPath options mempty
294 (ec, out) <- pipeProcess (Just env) pandocPath options mempty
296 if ec == ExitSuccess
295 if ec == ExitSuccess
297 then return $ filter (/='\r') . normalizer
296 then return $ filter (/='\r') . normalizer
@@ -299,7 +298,7 @@ testWithNormalize normalizer pandocPath testname opts inp norm =
299 -- filter \r so the tests will work on Windows machines
298 -- filter \r so the tests will work on Windows machines
300 else fail $ "Pandoc failed with error code " ++ show ec
299 else fail $ "Pandoc failed with error code " ++ show ec
301 updateGolden = UTF8.writeFile norm
300 updateGolden = UTF8.writeFile norm
302− options = ["--quiet"] ++ [inp] ++ opts
301+ options = ["--data-dir=../data","--quiet"] ++ [inp] ++ opts
304compareValues :: FilePath -> [String] -> String -> String -> IO (Maybe String)
303compareValues :: FilePath -> [String] -> String -> String -> IO (Maybe String)
305compareValues norm options expected actual = do
304compareValues norm options expected actual = do