diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 22:54:05 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-19 22:54:05 -0700 |
| commit | f5704fac9769e4b236cfe70292f77b80b19accc6 (patch) | |
| tree | 09849dc0954715276a6e788a90fbf971a387f6c4 /test/Tests/Readers/Man.hs | |
| parent | 3b710b6fa7aad461302225abedd273dab06a40cd (diff) | |
| download | pandoc-f5704fac9769e4b236cfe70292f77b80b19accc6.tar.gz | |
Man reader: properly handle multi-block list items.
Closes #4985.
Diffstat (limited to 'test/Tests/Readers/Man.hs')
| -rw-r--r-- | test/Tests/Readers/Man.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index a134c5813..974dd1cb9 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -75,16 +75,16 @@ tests = [ testGroup "Lists" [ "bullet" =: ".IP\nfirst\n.IP\nsecond" - =?> bulletList [plain $ str "first", plain $ str "second"] + =?> bulletList [para $ str "first", para $ str "second"] , "ordered" =: ".IP 1 a\nfirst\n.IP 2 a\nsecond" - =?> orderedListWith (1,Decimal,DefaultDelim) [plain $ str "first", plain $ str "second"] + =?> orderedListWith (1,Decimal,DefaultDelim) [para $ str "first", para $ str "second"] , "upper" =: ".IP A a\nfirst\n.IP B a\nsecond" - =?> orderedListWith (1,UpperAlpha,DefaultDelim) [plain $ str "first", plain $ str "second"] + =?> orderedListWith (1,UpperAlpha,DefaultDelim) [para $ str "first", para $ str "second"] , "nested" =: ".IP\nfirst\n.RS\n.IP\n1a\n.IP\n1b\n.RE" - =?> bulletList [(plain $ str "first") <> (bulletList [plain $ str "1a", plain $ str "1b"])] + =?> bulletList [(para $ str "first") <> (bulletList [para $ str "1a", para $ str "1b"])] ], testGroup "CodeBlocks" [ "cb1"=: |