@@ -537,23 +537,35 @@ tests =
537537 ]
538538 , testGroup "Lists"
539539 [ "Bullet list" =:
540− T.unlines
540+ T.unlines
541541 [ " - Item1"
542542 , ""
543543 , " - Item2"
544544 ] =?>
545− bulletList [ para "Item1"
546− , para "Item2"
547− ]
545+ bulletList [ para "Item1"
546+ , para "Item2"
547+ ]
548548 , "Ordered list" =:
549− T.unlines
550− [ " 1. Item1"
551− , ""
552− , " 2. Item2"
553− ] =?>
554− orderedListWith (1, Decimal, Period) [ para "Item1"
555− , para "Item2"
556− ]
549+ T.unlines
550+ [ " 1. Item1"
551+ , ""
552+ , " 2. Item2"
553+ ] =?>
554+ orderedListWith (1, Decimal, Period) [ para "Item1"
555+ , para "Item2"
556+ ]
557+ , "Ordered list with implicit numbers" =:
558+ T.unlines
559+ [ " 1. Item1"
560+ , ""
561+ , " 1. Item2"
562+ , ""
563+ , " 1. Item3"
564+ ] =?>
565+ orderedListWith (1, Decimal, Period) [ para "Item1"
566+ , para "Item2"
567+ , para "Item3"
568+ ]
557569 , testGroup "Nested lists"
558570 [ "Nested list" =:
559571 T.unlines