diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-21 20:34:27 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-21 20:34:27 -0700 |
| commit | 93c35cbf148dff486c9ccc88c5e78cce55538ffd (patch) | |
| tree | 98ef5c31a5a2474750a3fa768e07f017c4e2b136 | |
| parent | bec25775ba74e5cd6c750b05e95e959b2c4721eb (diff) | |
| download | pandoc-93c35cbf148dff486c9ccc88c5e78cce55538ffd.tar.gz | |
Tests.Old: Set TMP to ".".
Otherwise TMP is unset and, on Windows, C:\Windows is used by default,
leading to permission violations.
| -rw-r--r-- | tests/Tests/Old.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index 5360126c2..15b6b354e 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -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 |