@@ -45,7 +45,7 @@ tests :: [Test]
4545tests = [ testGroup "markdown" [ testGroup "writer" (writerTests "markdown" ++ lhsWriterTests "markdown")
4646 , testGroup "reader" [ test "basic" ["-r", "markdown", "-w", "native", "-s", "-S"]
4747 "testsuite.txt" "testsuite.native"
48− , test "tables" ["-r", "markdown", "-w", "native"]
48+ , test "tables" ["-r", "markdown", "-w", "native", "--columns=80"]
4949 "tables.txt" "tables.native"
5050 , test "more" ["-r", "markdown", "-w", "native", "-S"]
5151 "markdown-reader-more.txt" "markdown-reader-more.native"
@@ -54,9 +54,9 @@ tests = [ testGroup "markdown" [ testGroup "writer" (writerTests "markdown" ++ l
5454 , testGroup "citations" markdownCitationTests
5555 ]
5656 , testGroup "rst" [ testGroup "writer" (writerTests "rst" ++ lhsWriterTests "rst")
57− , testGroup "reader" [ test "basic" ["-r", "rst", "-w", "native", "-s", "-S"]
57+ , testGroup "reader" [ test "basic" ["-r", "rst", "-w", "native", "-s", "-S", "--columns=80"]
5858 "rst-reader.rst" "rst-reader.native"
59− , test "tables" ["-r", "rst", "-w", "native"]
59+ , test "tables" ["-r", "rst", "-w", "native", "--columns=80"]
6060 "tables.rst" "tables-rstsubset.native"
6161 , lhsReaderTest "rst+lhs"
6262 ]
@@ -173,7 +173,7 @@ testWithNormalize normalizer testname opts inp norm = testCase testname $ do
173173 (outputPath, hOut) <- openTempFile "" "pandoc-test"
174174 let inpPath = inp
175175 let normPath = norm
176− ph <- runProcess pandocPath (["--columns=80"] ++ [inpPath] ++ ["--data-dir", ".."] ++ opts) Nothing
176+ ph <- runProcess pandocPath ([inpPath] ++ ["--data-dir", ".."] ++ opts) Nothing
177177 (Just [("LANG","en_US.UTF-8"),("HOME", "./")]) Nothing (Just hOut) (Just stderr)
178178 ec <- waitForProcess ph
179179 result <- if ec == ExitSuccess