From f5704fac9769e4b236cfe70292f77b80b19accc6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 19 Oct 2018 22:54:05 -0700 Subject: Man reader: properly handle multi-block list items. Closes #4985. --- test/Tests/Readers/Man.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test/Tests') 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"=: -- cgit v1.2.3