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.)

1 files changed, 25 insertions, 6 deletions

diff --git a/test/command/shift-heading-level-by.md b/test/command/shift-heading-level-by.md
index 323783f24..8397e7092 100644
--- a/test/command/shift-heading-level-by.md
+++ b/test/command/shift-heading-level-by.md
@@ -8,9 +8,19 @@ title: My title
 
 ## Second
 ^D
-Pandoc (Meta {unMeta = fromList [("title",MetaInlines [Str "My",Space,Str "title"])]})
-[Header 2 ("first-heading",[],[]) [Str "First",Space,Str "heading"]
-,Header 3 ("second",[],[]) [Str "Second"]]
+Pandoc
+  ( Meta
+    { unMeta = fromList
+      [ ( "title", MetaInlines [ Str "My", Space, Str "title" ] ) ]
+    }
+  )
+  [ Header 2
+    ( "first-heading", [], [] )
+    [ Str "First", Space, Str "heading" ]
+  , Header 3
+    ( "second", [], [] )
+    [ Str "Second" ]
+  ]
 ```
 
 ```
@@ -25,8 +35,17 @@ title: Old title
 
 # Another top-level heading
 ^D
-Pandoc (Meta {unMeta = fromList [("title",MetaInlines [Str "First",Space,Str "heading"])]})
-[Header 1 ("second",[],[]) [Str "Second"]
-,Para [Str "Another",Space,Str "top-level",Space,Str "heading"]]
+Pandoc
+  ( Meta
+    { unMeta = fromList
+      [ ( "title", MetaInlines [ Str "First", Space, Str "heading" ] ) ]
+    }
+  )
+  [ Header 1
+    ( "second", [], [] )
+    [ Str "Second" ]
+  , Para
+    [ Str "Another", Space, Str "top-level", Space, Str "heading" ]
+  ]
 ```