From c266734448544a118ed80e47deaa2590131c7f84 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 19 Sep 2021 12:09:51 -0700
Subject: Use pretty-simple to format native output.

Previously we used our own homespun formatting.  But this
produces over-long lines that aren't ideal for diffs in tests.
Easier to use something off-the-shelf and standard.

Closes #7580.

Performance is slower by about a factor of 10, but this isn't
really a problem because native isn't suitable as a serialization
format. (For serialization you should use json, because the reader
is so much faster than native.)
---
 test/fb2/reader/titles.native | 41 +++++++++++++++++++++++++++++++++--------
 1 file changed, 33 insertions(+), 8 deletions(-)

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

diff --git a/test/fb2/reader/titles.native b/test/fb2/reader/titles.native
index a6c34f5ea..f98d0b00c 100644
--- a/test/fb2/reader/titles.native
+++ b/test/fb2/reader/titles.native
@@ -1,8 +1,33 @@
-Pandoc (Meta {unMeta = fromList []})
-[Header 1 ("",[],[]) [Str "Body",Space,Str "title"]
-,Div ("",["section"],[])
- [Header 2 ("",[],[]) [Str "Section",Space,Str "title"]
- ,Div ("",["section"],[])
-  [Header 3 ("",[],[]) [Str "Subsection",Space,Str "title",LineBreak,Str "with",Space,Str "multiple",Space,Str "paragraphs"]]
- ,Div ("",["section"],[])
-  [Header 3 ("",[],[]) [Str "Another",Space,Str "subsection",Space,Str "title"]]]]
+Pandoc
+  ( Meta { unMeta = fromList [] } )
+  [ Header 1
+    ( "", [], [] )
+    [ Str "Body", Space, Str "title" ]
+  , Div
+    ( "", [ "section" ], [] )
+    [ Header 2
+      ( "", [], [] )
+      [ Str "Section", Space, Str "title" ]
+    , Div
+      ( "", [ "section" ], [] )
+      [ Header 3
+        ( "", [], [] )
+        [ Str "Subsection"
+        , Space
+        , Str "title"
+        , LineBreak
+        , Str "with"
+        , Space
+        , Str "multiple"
+        , Space
+        , Str "paragraphs"
+        ]
+      ]
+    , Div
+      ( "", [ "section" ], [] )
+      [ Header 3
+        ( "", [], [] )
+        [ Str "Another", Space, Str "subsection", Space, Str "title" ]
+      ]
+    ]
+  ]
-- 
cgit v1.2.3