diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-11-12 18:40:16 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-11-12 18:40:16 -0800 |
| commit | f272b81f850a61a30d72b31494c13e69170d2715 (patch) | |
| tree | 5a76e077538fac43d8c340422194af9bf1b4812c | |
| parent | c44ff4c555925e083a5debf3fdf6e2feb459be05 (diff) | |
| download | pandoc-f272b81f850a61a30d72b31494c13e69170d2715.tar.gz | |
Set LANG in test runner.
| -rw-r--r-- | tests/RunTests.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/RunTests.hs b/tests/RunTests.hs index f58221846..468451562 100644 --- a/tests/RunTests.hs +++ b/tests/RunTests.hs @@ -114,6 +114,7 @@ main = do then mapM runLhsReaderTest lhsReaderFormats else putStrLn "Skipping lhs reader tests because they presuppose highlighting support" >> return [] let results = r1s ++ + [ r2, r3, r4, r5 -- S5 , r6, r7, r7a -- markdown reader , r8, r8a -- rst @@ -167,7 +168,8 @@ runTest testname opts inp norm = do let normPath = norm hFlush stdout -- Note: COLUMNS must be set for markdown table reader - ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing (Just [("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr) + ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing + (Just [("LANG","en_US.UTF-8"),("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr) ec <- waitForProcess ph result <- if ec == ExitSuccess then do |