From c266734448544a118ed80e47deaa2590131c7f84 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 19 Sep 2021 12:09:51 -0700
Subject: 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.)
---
 test/command/4240.md | 28 +++++++++++++++++++++++-----
 1 file changed, 23 insertions(+), 5 deletions(-)

(limited to 'test/command/4240.md')

diff --git a/test/command/4240.md b/test/command/4240.md
index 39a7d2adf..861184728 100644
--- a/test/command/4240.md
+++ b/test/command/4240.md
@@ -25,9 +25,27 @@ header3
 header4
 ~~~~~~~
 ^D
-Pandoc (Meta {unMeta = fromList [("subtitle",MetaInlines [Str "Subtitle"]),("title",MetaInlines [Str "Title"])]})
-[Header 1 ("header1",[],[]) [Str "header1"]
-,Header 2 ("header2",[],[]) [Str "header2"]
-,Header 3 ("id",[],[]) [Str "header3"]
-,Header 3 ("id3",[],[]) [Str "header4",Span ("id2",[],[]) []]]
+Pandoc
+  ( Meta
+    { unMeta = fromList
+      [
+        ( "subtitle", MetaInlines [ Str "Subtitle" ] )
+      ,
+        ( "title", MetaInlines [ Str "Title" ] )
+      ]
+    }
+  )
+  [ Header 1
+    ( "header1", [], [] )
+    [ Str "header1" ]
+  , Header 2
+    ( "header2", [], [] )
+    [ Str "header2" ]
+  , Header 3
+    ( "id", [], [] )
+    [ Str "header3" ]
+  , Header 3
+    ( "id3", [], [] )
+    [ Str "header4", Span ( "id2", [], [] ) [] ]
+  ]
 ```
-- 
cgit v1.2.3