aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-09-19 12:09:51 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-09-21 12:37:42 -0700
commitc266734448544a118ed80e47deaa2590131c7f84 (patch)
treed5793b1dc732456894c96e8ee6829dab9d539388 /test/Tests
parent5f7e7f539a02818d0a94309b15d648d51d1eaee6 (diff)
downloadpandoc-c266734448544a118ed80e47deaa2590131c7f84.tar.gz
Use pretty-simple to format native output.
Previously we used our own homespun formatting. But this produces over-long lines that aren't ideal for diffs in tests. Easier to use something off-the-shelf and standard. Closes #7580. Performance is slower by about a factor of 10, but this isn't really a problem because native isn't suitable as a serialization format. (For serialization you should use json, because the reader is so much faster than native.)
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Old.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs
index 4baa16d45..d080f68f1 100644
--- a/test/Tests/Old.hs
+++ b/test/Tests/Old.hs
@@ -146,7 +146,7 @@ tests pandocPath =
"dokuwiki_external_images.native" "dokuwiki_external_images.dokuwiki"
]
, testGroup "opml"
- [ test' "basic" ["-r", "native", "-w", "opml", "--columns=78", "-s"]
+ [ test' "basic" ["-r", "native", "-w", "opml", "--columns=80", "-s"]
"testsuite.native" "writer.opml"
, test' "reader" ["-r", "opml", "-w", "native", "-s"]
"opml-reader.opml" "opml-reader.native"
@@ -262,7 +262,7 @@ writerTests pandocPath format
"tables" opts "tables.native" ("tables" <.> format)
]
where
- opts = ["-r", "native", "-w", format, "--columns=78",
+ opts = ["-r", "native", "-w", format, "--columns=80",
"--variable", "pandoc-version="]
extendedWriterTests :: FilePath -> String -> [TestTree]
@@ -276,7 +276,7 @@ extendedWriterTests pandocPath format
("tables" </> name <.> format)
in map testForTable ["planets", "nordics", "students"]
where
- opts = ["-r", "native", "-w", format, "--columns=78",
+ opts = ["-r", "native", "-w", format, "--columns=80",
"--variable", "pandoc-version="]
s5WriterTest :: FilePath -> String -> [String] -> String -> TestTree