From 93c35cbf148dff486c9ccc88c5e78cce55538ffd Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 21 Sep 2012 20:34:27 -0700
Subject: [PATCH] Tests.Old: Set TMP to ".".
Otherwise TMP is unset and, on Windows, C:\Windows is used by default,
leading to permission violations.
---
tests/Tests/Old.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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