diff options
author | John MacFarlane <jgm@berkeley.edu> | 2021-09-28 21:17:53 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-28 21:17:53 -0700 |
commit | 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1 (patch) | |
tree | c9bda08418e67755254ad2d1d2e95dd691bd1902 /test/command/shift-heading-level-by.md | |
parent | 8018179b3df34cd7fdbd77c7a08b21fd8d5b5b31 (diff) | |
download | pandoc-0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1.tar.gz |
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.
Diffstat (limited to 'test/command/shift-heading-level-by.md')
-rw-r--r-- | test/command/shift-heading-level-by.md | 44 |
1 files changed, 26 insertions, 18 deletions
diff --git a/test/command/shift-heading-level-by.md b/test/command/shift-heading-level-by.md index 8397e7092..1ce966989 100644 --- a/test/command/shift-heading-level-by.md +++ b/test/command/shift-heading-level-by.md @@ -9,17 +9,19 @@ title: My title ## Second ^D Pandoc - ( Meta - { unMeta = fromList - [ ( "title", MetaInlines [ Str "My", Space, Str "title" ] ) ] + Meta + { unMeta = + fromList + [ ( "title" + , MetaInlines [ Str "My" , Space , Str "title" ] + ) + ] } - ) - [ Header 2 - ( "first-heading", [], [] ) - [ Str "First", Space, Str "heading" ] - , Header 3 - ( "second", [], [] ) - [ Str "Second" ] + [ Header + 2 + ( "first-heading" , [] , [] ) + [ Str "First" , Space , Str "heading" ] + , Header 3 ( "second" , [] , [] ) [ Str "Second" ] ] ``` @@ -36,16 +38,22 @@ title: Old title # Another top-level heading ^D Pandoc - ( Meta - { unMeta = fromList - [ ( "title", MetaInlines [ Str "First", Space, Str "heading" ] ) ] + Meta + { unMeta = + fromList + [ ( "title" + , MetaInlines [ Str "First" , Space , Str "heading" ] + ) + ] } - ) - [ Header 1 - ( "second", [], [] ) - [ Str "Second" ] + [ Header 1 ( "second" , [] , [] ) [ Str "Second" ] , Para - [ Str "Another", Space, Str "top-level", Space, Str "heading" ] + [ Str "Another" + , Space + , Str "top-level" + , Space + , Str "heading" + ] ] ``` |