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/fb2/reader/emphasis.native | 65 ++++++++++++++++++++---------------------
 1 file changed, 31 insertions(+), 34 deletions(-)

(limited to 'test/fb2/reader/emphasis.native')

diff --git a/test/fb2/reader/emphasis.native b/test/fb2/reader/emphasis.native
index 18fa49a8b..a3f4cdeb6 100644
--- a/test/fb2/reader/emphasis.native
+++ b/test/fb2/reader/emphasis.native
@@ -1,38 +1,35 @@
 Pandoc
-  ( Meta { unMeta = fromList [] } )
+  Meta { unMeta = fromList [] }
   [ Div
-    ( "", [ "section" ], [] )
-    [ Para
-      [ Str "Plain,"
-      , Space
-      , Strong
-        [ Str "strong" ]
-      , Str ","
-      , Space
-      , Emph
-        [ Str "emphasis" ]
-      , Str ","
-      , Space
-      , Strong
-        [ Emph [ Str "strong", Space, Str "emphasis" ] ]
-      , Str ","
-      , Space
-      , Emph
-        [ Strong [ Str "emphasized", Space, Str "strong" ] ]
-      , Str "."
+      ( "" , [ "section" ] , [] )
+      [ Para
+          [ Str "Plain,"
+          , Space
+          , Strong [ Str "strong" ]
+          , Str ","
+          , Space
+          , Emph [ Str "emphasis" ]
+          , Str ","
+          , Space
+          , Strong [ Emph [ Str "strong" , Space , Str "emphasis" ] ]
+          , Str ","
+          , Space
+          , Emph
+              [ Strong [ Str "emphasized" , Space , Str "strong" ] ]
+          , Str "."
+          ]
+      , Para
+          [ Str "Strikethrough:"
+          , Space
+          , Strikeout [ Str "deleted" ]
+          ]
+      , Para
+          [ Subscript [ Str "Subscript" ]
+          , Space
+          , Str "and"
+          , Space
+          , Superscript [ Str "superscript" ]
+          ]
+      , Para [ Str "Some" , Space , Code ( "" , [] , [] ) "code" ]
       ]
-    , Para
-      [ Str "Strikethrough:", Space, Strikeout [ Str "deleted" ] ]
-    , Para
-      [ Subscript
-        [ Str "Subscript" ]
-      , Space
-      , Str "and"
-      , Space
-      , Superscript
-        [ Str "superscript" ]
-      ]
-    , Para
-      [ Str "Some", Space, Code ( "", [], [] ) "code" ]
-    ]
   ]
-- 
cgit v1.2.3