diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-09-19 12:09:51 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-21 12:37:42 -0700 |
| commit | c266734448544a118ed80e47deaa2590131c7f84 (patch) | |
| tree | d5793b1dc732456894c96e8ee6829dab9d539388 /test/fb2/reader/poem.native | |
| parent | 5f7e7f539a02818d0a94309b15d648d51d1eaee6 (diff) | |
| download | pandoc-c266734448544a118ed80e47deaa2590131c7f84.tar.gz | |
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.)
Diffstat (limited to 'test/fb2/reader/poem.native')
| -rw-r--r-- | test/fb2/reader/poem.native | 40 |
1 files changed, 26 insertions, 14 deletions
diff --git a/test/fb2/reader/poem.native b/test/fb2/reader/poem.native index 67be6a672..a43466b16 100644 --- a/test/fb2/reader/poem.native +++ b/test/fb2/reader/poem.native @@ -1,14 +1,26 @@ -Pandoc (Meta {unMeta = fromList []}) -[Div ("",["section"],[]) - [Header 2 ("",[],[]) [Str "Poem",Space,Str "title"] - ,Div ("",["epigraph"],[]) - [Para [Str "Poem",Space,Str "epigraph"]] - ,Header 2 ("",["unnumbered"],[]) [Str "Subtitle"] - ,Header 2 ("",[],[]) [Str "First",Space,Str "stanza",Space,Str "title"] - ,LineBlock - [[Str "Verse"] - ,[Emph [Str "More"],Space,Str "verse"]] - ,LineBlock - [[Str "One",Space,Str "more",Space,Str "stanza"]] - ,Para [Str "Author"] - ,Para [Str "April",Space,Str "2018"]]] +Pandoc + ( Meta { unMeta = fromList [] } ) + [ Div + ( "", [ "section" ], [] ) + [ Header 2 + ( "", [], [] ) + [ Str "Poem", Space, Str "title" ] + , Div + ( "", [ "epigraph" ], [] ) + [ Para [ Str "Poem", Space, Str "epigraph" ] ] + , Header 2 + ( "", [ "unnumbered" ], [] ) + [ Str "Subtitle" ] + , Header 2 + ( "", [], [] ) + [ Str "First", Space, Str "stanza", Space, Str "title" ] + , LineBlock + [ [ Str "Verse" ], [ Emph [ Str "More" ], Space, Str "verse" ] ] + , LineBlock + [ [ Str "One", Space, Str "more", Space, Str "stanza" ] ] + , Para + [ Str "Author" ] + , Para + [ Str "April", Space, Str "2018" ] + ] + ] |