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/3706.md | 144 +++++++++++++++++++++++++++------------------------
 1 file changed, 75 insertions(+), 69 deletions(-)

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

diff --git a/test/command/3706.md b/test/command/3706.md
index 52e1eacbf..fcd95dfdd 100644
--- a/test/command/3706.md
+++ b/test/command/3706.md
@@ -16,78 +16,84 @@ Results marker can be hidden in block attributes (#3706)
 |  3 | La   |
 ^D
 [ Div
-  ( "tab", [], [] )
-  [ Table
-    ( "", [], [] )
-    ( Caption Nothing [ Plain [ Str "Lalelu." ] ] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Id" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Desc" ] ]
-        ]
-      ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "1" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "La" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "2" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "La" ] ]
+    ( "tab" , [] , [] )
+    [ Table
+        ( "" , [] , [] )
+        (Caption Nothing [ Plain [ Str "Lalelu." ] ])
+        [ ( AlignDefault , ColWidthDefault )
+        , ( AlignDefault , ColWidthDefault )
         ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "3" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "La" ] ]
+        (TableHead
+           ( "" , [] , [] )
+           [ Row
+               ( "" , [] , [] )
+               [ Cell
+                   ( "" , [] , [] )
+                   AlignDefault
+                   (RowSpan 1)
+                   (ColSpan 1)
+                   [ Plain [ Str "Id" ] ]
+               , Cell
+                   ( "" , [] , [] )
+                   AlignDefault
+                   (RowSpan 1)
+                   (ColSpan 1)
+                   [ Plain [ Str "Desc" ] ]
+               ]
+           ])
+        [ TableBody
+            ( "" , [] , [] )
+            (RowHeadColumns 0)
+            []
+            [ Row
+                ( "" , [] , [] )
+                [ Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "1" ] ]
+                , Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "La" ] ]
+                ]
+            , Row
+                ( "" , [] , [] )
+                [ Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "2" ] ]
+                , Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "La" ] ]
+                ]
+            , Row
+                ( "" , [] , [] )
+                [ Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "3" ] ]
+                , Cell
+                    ( "" , [] , [] )
+                    AlignDefault
+                    (RowSpan 1)
+                    (ColSpan 1)
+                    [ Plain [ Str "La" ] ]
+                ]
+            ]
         ]
-      ]
+        (TableFoot ( "" , [] , [] ) [])
     ]
-    ( TableFoot ( "", [], [] ) [] )
-  ]
 ]
 ```
 
-- 
cgit v1.2.3