git.iko.soy/typeable/pandoc
on master help sign in
test-pandoc: Wrap to 78 columns in lhs writer tests.
438f32cJohn MacFarlane
src/test-pandoc.hs+1−1
compare with master
unifiedsplit
@@ -150,7 +150,7 @@ readFile' f = do s <- readFileUTF8 f
150
150
151runLhsWriterTest :: String -> IO Bool
151runLhsWriterTest :: String -> IO Bool
152runLhsWriterTest format =
152runLhsWriterTest format =
153− runTest ("(lhs) " ++ format ++ " writer") ["-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format)
153+ runTest ("(lhs) " ++ format ++ " writer") ["--columns=78", "-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format)
154
154
155runLhsReaderTest :: String -> IO Bool
155runLhsReaderTest :: String -> IO Bool
156runLhsReaderTest format =
156runLhsReaderTest format =