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/6791.md | 40 +++++++++++++++++++++++++---------------
 1 file changed, 25 insertions(+), 15 deletions(-)

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

diff --git a/test/command/6791.md b/test/command/6791.md
index 478647721..a515007a1 100644
--- a/test/command/6791.md
+++ b/test/command/6791.md
@@ -14,19 +14,29 @@
 </tgroup>
 </informaltable>
 ^D
-[Table ("",[],[]) (Caption Nothing
- [])
- [(AlignDefault,ColWidth 0.25)
- ,(AlignDefault,ColWidth 0.25)]
- (TableHead ("",[],[])
- [])
- [(TableBody ("",[],[]) (RowHeadColumns 0)
-  []
-  [Row ("",[],[])
-   [Cell ("",[],[]) AlignCenter (RowSpan 1) (ColSpan 1)
-    [Para [Str "2"]]
-   ,Cell ("",[],[]) AlignCenter (RowSpan 1) (ColSpan 1)
-    [Para [Str "1"]]]])]
- (TableFoot ("",[],[])
- [])]
+[ Table
+  ( "", [], [] )
+  ( Caption Nothing [] )
+  [ ( AlignDefault, ColWidth 0.25 ), ( AlignDefault, ColWidth 0.25 ) ]
+  ( TableHead ( "", [], [] ) [] )
+  [ TableBody
+    ( "", [], [] )
+    ( RowHeadColumns 0 ) []
+    [ Row
+      ( "", [], [] )
+      [ Cell
+        ( "", [], [] ) AlignCenter
+        ( RowSpan 1 )
+        ( ColSpan 1 )
+        [ Para [ Str "2" ] ]
+      , Cell
+        ( "", [], [] ) AlignCenter
+        ( RowSpan 1 )
+        ( ColSpan 1 )
+        [ Para [ Str "1" ] ]
+      ]
+    ]
+  ]
+  ( TableFoot ( "", [], [] ) [] )
+]
 ```
-- 
cgit v1.2.3