@@ -212,7 +212,7 @@ testWithNormalize normalizer testname opts inp norm = testCase testname $ do
212 let options = ["--data-dir", ".."] ++ [inpPath] ++ opts
212 let options = ["--data-dir", ".."] ++ [inpPath] ++ opts
213 let cmd = pandocPath ++ " " ++ unwords options
213 let cmd = pandocPath ++ " " ++ unwords options
214 ph <- runProcess pandocPath options Nothing
214 ph <- runProcess pandocPath options Nothing
215− (Just [("LANG","en_US.UTF-8"),("HOME", "./")]) Nothing (Just hOut)
215+ (Just [("TMP","."),("LANG","en_US.UTF-8"),("HOME", "./")]) Nothing (Just hOut)
216 (Just stderr)
216 (Just stderr)
217 ec <- waitForProcess ph
217 ec <- waitForProcess ph
218 result <- if ec == ExitSuccess
218 result <- if ec == ExitSuccess