diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 16:54:15 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 16:54:15 -0800 |
| commit | 438f32cdfac869e44ba6998d27becd10de507ad8 (patch) | |
| tree | d8bc2ae1bcf686ee3f33f0a39e391cf75ca6bfa2 /src | |
| parent | 9ff560036eb79407c92fab8855c367c3b0f52716 (diff) | |
| download | pandoc-438f32cdfac869e44ba6998d27becd10de507ad8.tar.gz | |
test-pandoc: Wrap to 78 columns in lhs writer tests.
Diffstat (limited to 'src')
| -rw-r--r-- | src/test-pandoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test-pandoc.hs b/src/test-pandoc.hs index 173816fb1..9b6d96510 100644 --- a/src/test-pandoc.hs +++ b/src/test-pandoc.hs @@ -150,7 +150,7 @@ readFile' f = do s <- readFileUTF8 f runLhsWriterTest :: String -> IO Bool runLhsWriterTest format = - runTest ("(lhs) " ++ format ++ " writer") ["-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format) + runTest ("(lhs) " ++ format ++ " writer") ["--columns=78", "-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format) runLhsReaderTest :: String -> IO Bool runLhsReaderTest format = |