From 62566c81821e8e886b29417ac42483b5b3e54128 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 20 Oct 2018 09:30:06 -0700 Subject: Man reader: handle shift in list style. Closes #4987. --- test/Tests/Readers/Man.hs | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'test/Tests/Readers') diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index 902ed71cc..5368ce542 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -74,17 +74,21 @@ tests = [ ], testGroup "Lists" [ "bullet" =: - ".IP\nfirst\n.IP\nsecond" + ".IP \"\\[bu]\"\nfirst\n.IP \"\\[bu]\"\nsecond" =?> bulletList [para $ str "first", para $ str "second"] , "ordered" =: - ".IP 1 a\nfirst\n.IP 2 a\nsecond" - =?> orderedListWith (1,Decimal,DefaultDelim) [para $ str "first", para $ str "second"] + ".IP 2 a\nfirst\n.IP 3 a\nsecond" + =?> orderedListWith (2,Decimal,DefaultDelim) [para $ str "first", para $ str "second"] , "upper" =: - ".IP A a\nfirst\n.IP B a\nsecond" - =?> orderedListWith (1,UpperAlpha,DefaultDelim) [para $ str "first", para $ str "second"] + ".IP A) a\nfirst\n.IP B) a\nsecond" + =?> orderedListWith (1,UpperAlpha,OneParen) [para $ str "first", para $ str "second"] , "nested" =: - ".IP\nfirst\n.RS\n.IP\n1a\n.IP\n1b\n.RE" + ".IP \"\\[bu]\"\nfirst\n.RS\n.IP \"\\[bu]\"\n1a\n.IP \"\\[bu]\"\n1b\n.RE" =?> bulletList [(para $ str "first") <> (bulletList [para $ str "1a", para $ str "1b"])] + , "change in list style" =: + ".IP \\[bu]\nfirst\n.IP 1\nsecond" + =?> bulletList [para (str "first")] <> + orderedListWith (1,Decimal,DefaultDelim) [para (str "second")] ], testGroup "CodeBlocks" [ "cb1"=: -- cgit v1.2.3