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/7129.md | 80 ++++++++++++++++++++++++++++------------------------
 1 file changed, 43 insertions(+), 37 deletions(-)

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

diff --git a/test/command/7129.md b/test/command/7129.md
index caabc99a3..14005f0d1 100644
--- a/test/command/7129.md
+++ b/test/command/7129.md
@@ -6,44 +6,50 @@
 \end{tabular}
 ^D
 [ Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignLeft, ColWidthDefault ), ( AlignLeft, ColWidthDefault ) ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "FOO" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "BAR" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignLeft , ColWidthDefault )
+    , ( AlignLeft , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "foo" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Code ( "", [], [] ) "b&r" ] ]
-      ]
+    (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 "foo" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Code ( "" , [] , [] ) "b&r" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 ]
 ```
-- 
cgit v1.2.3