@@ -114,6 +114,7 @@ main = do
114 then mapM runLhsReaderTest lhsReaderFormats
114 then mapM runLhsReaderTest lhsReaderFormats
115 else putStrLn "Skipping lhs reader tests because they presuppose highlighting support" >> return []
115 else putStrLn "Skipping lhs reader tests because they presuppose highlighting support" >> return []
116 let results = r1s ++
116 let results = r1s ++
117 [ r2, r3, r4, r5 -- S5
118 [ r2, r3, r4, r5 -- S5
118 , r6, r7, r7a -- markdown reader
119 , r6, r7, r7a -- markdown reader
119 , r8, r8a -- rst
120 , r8, r8a -- rst
@@ -167,7 +168,8 @@ runTest testname opts inp norm = do
167 let normPath = norm
168 let normPath = norm
168 hFlush stdout
169 hFlush stdout
169 -- Note: COLUMNS must be set for markdown table reader
170 -- Note: COLUMNS must be set for markdown table reader
170− ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing (Just [("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr)
171+ ph <- runProcess pandocPath (opts ++ [inpPath] ++ ["--data-dir", ".."]) Nothing
172+ (Just [("LANG","en_US.UTF-8"),("COLUMNS", "80")]) Nothing (Just hOut) (Just stderr)
171 ec <- waitForProcess ph
173 ec <- waitForProcess ph
172 result <- if ec == ExitSuccess
174 result <- if ec == ExitSuccess