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/4579.md | 84 +++++++++++++++++++++++++++-------------------------
 1 file changed, 43 insertions(+), 41 deletions(-)

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

diff --git a/test/command/4579.md b/test/command/4579.md
index f22494e16..353a4a514 100644
--- a/test/command/4579.md
+++ b/test/command/4579.md
@@ -9,48 +9,50 @@
     - ham
 ^D
 [ Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignDefault, ColWidthDefault )
-  ,
-    ( AlignDefault, ColWidthDefault )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Foo" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Bar" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidthDefault )
+    , ( AlignDefault , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "spam" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "ham" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Foo" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Bar" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "spam" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "ham" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 ]
 ```
-- 
cgit v1.2.3