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/rtf/list_complex.native | |
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/rtf/list_complex.native')
-rw-r--r-- | test/rtf/list_complex.native | 120 |
1 files changed, 50 insertions, 70 deletions
diff --git a/test/rtf/list_complex.native b/test/rtf/list_complex.native index 73e2e14f8..9dfd17755 100644 --- a/test/rtf/list_complex.native +++ b/test/rtf/list_complex.native @@ -1,84 +1,64 @@ Pandoc - ( Meta - { unMeta = fromList - [ - ( "author" - , MetaInlines - [ Str "Cynthia", Space, Str "Johnson" ] - ) - , - ( "operator" - , MetaInlines - [ Str "John", Space, Str "MacFarlane" ] - ) - , - ( "title" - , MetaInlines - [ Str "Text", Space, Str "before", Space, Str "list" ] - ) - ] + Meta + { unMeta = + fromList + [ ( "author" + , MetaInlines [ Str "Cynthia" , Space , Str "Johnson" ] + ) + , ( "operator" + , MetaInlines [ Str "John" , Space , Str "MacFarlane" ] + ) + , ( "title" + , MetaInlines + [ Str "Text" + , Space + , Str "before" + , Space + , Str "list" + ] + ) + ] } - ) [ OrderedList - ( 1, Decimal, Period ) - [ - [ Para [ Str "One" ] ] - , - [ Para - [ Str "Two" ] - , OrderedList - ( 1, LowerAlpha, Period ) - [ - [ Para [ Str "Three" ] ] - , - [ Para - [ Str "Four" ] - , OrderedList - ( 1, LowerRoman, Period ) - [ - [ Para [ Str "Five" ] ] - , - [ Para - [ Str "Six" ] + ( 1 , Decimal , Period ) + [ [ Para [ Str "One" ] ] + , [ Para [ Str "Two" ] + , OrderedList + ( 1 , LowerAlpha , Period ) + [ [ Para [ Str "Three" ] ] + , [ Para [ Str "Four" ] , OrderedList - ( 1, UpperAlpha, Period ) - [ - [ Para [ Str "Seven" ] ] - , - [ Para - [ Str "Eight" ] - , OrderedList - ( 1, UpperRoman, Period ) - [ - [ Para [ Str "Nine" ] ] - , - [ Para - [ Str "Ten" ] - , BulletList - [ - [ Para [ Str "Eleven" ] ] - , - [ Para [ Str "Twelve" ] ] + ( 1 , LowerRoman , Period ) + [ [ Para [ Str "Five" ] ] + , [ Para [ Str "Six" ] + , OrderedList + ( 1 , UpperAlpha , Period ) + [ [ Para [ Str "Seven" ] ] + , [ Para [ Str "Eight" ] + , OrderedList + ( 1 , UpperRoman , Period ) + [ [ Para [ Str "Nine" ] ] + , [ Para [ Str "Ten" ] + , BulletList + [ [ Para [ Str "Eleven" ] ] + , [ Para [ Str "Twelve" ] ] + ] + ] + ] + ] ] - ] ] ] - ] ] ] - ] ] ] - ] - , Para - [ Str "Out", Space, Str "of", Space, Str "list!" ] , Para - [ Str "Start", Space, Str "with" ] + [ Str "Out" , Space , Str "of" , Space , Str "list!" ] + , Para [ Str "Start" , Space , Str "with" ] , OrderedList - ( 7, Decimal, Period ) - [ - [ Para [ Str "Seven", Space, Str "Start" ] ] - , - [ Para [ Str "Eight", Space, Str "Continue" ] ] - ] + ( 7 , Decimal , Period ) + [ [ Para [ Str "Seven" , Space , Str "Start" ] ] + , [ Para [ Str "Eight" , Space , Str "Continue" ] ] + ] ] |