From 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 28 Sep 2021 21:17:53 -0700
Subject: Switch from pretty-simple to pretty-show for native output.

Update tests.

Reason:  it turns out that the native output generated by
pretty-simple isn't always readable by the native reader.
According to https://github.com/cdepillabout/pretty-simple/issues/99
it is not a design goal of the library that the rendered values
be readable using 'read'.  This makes it unsuitable for our
purposes.

pretty-show is a bit slower and it uses 4-space indents
(non-configurable), but it doesn't have this serious drawback.
---
 test/command/4063.md | 49 +++++++++++++++++++++++++++----------------------
 1 file changed, 27 insertions(+), 22 deletions(-)

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

diff --git a/test/command/4063.md b/test/command/4063.md
index ca7b3007e..29aeae854 100644
--- a/test/command/4063.md
+++ b/test/command/4063.md
@@ -12,28 +12,33 @@
 </table>
 ^D
 [ Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignDefault, ColWidth 0.3 ), ( AlignDefault, ColWidth 0.7 ) ]
-  ( TableHead ( "", [], [] ) [] )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "2" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidth 0.3 )
+    , ( AlignDefault , ColWidth 0.7 )
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableHead ( "" , [] , [] ) [])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "2" ] ]
+            ]
+        ]
+    ]
+    (TableFoot ( "" , [] , [] ) [])
 ]
 ```
-- 
cgit v1.2.3