Tests.Old: Set TMP to ".".

Otherwise TMP is unset and, on Windows, C:\Windows is used by default,
leading to permission violations.
This commit is contained in:
John MacFarlane 2012-09-21 20:34:27 -07:00
parent bec25775ba
commit 93c35cbf14

View file

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