@@ -168,7 +168,7 @@ runTest testname opts inp norm = do
168 hFlush stdout
168 hFlush stdout
169 -- Note: COLUMNS must be set for markdown table reader
169 -- Note: COLUMNS must be set for markdown table reader
170 ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing
170 ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing
171− (Just [("LANG","en_US.UTF-8"),("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr)
171+ (Just [("LANG","en_US.UTF-8"),("COLUMNS", "80"),("HOME", "./")]) Nothing (Just hOut) (Just stderr)
172 ec <- waitForProcess ph
172 ec <- waitForProcess ph
173 result <- if ec == ExitSuccess
173 result <- if ec == ExitSuccess