@@ -537,23 +537,35 @@ tests =
538 , testGroup "Lists"
538 , testGroup "Lists"
539 [ "Bullet list" =:
539 [ "Bullet list" =:
540− T.unlines
540+ T.unlines
541 [ " - Item1"
541 [ " - Item1"
543 , " - Item2"
543 , " - Item2"
545− bulletList [ para "Item1"
545+ bulletList [ para "Item1"
546− , para "Item2"
546+ , para "Item2"
548 , "Ordered list" =:
548 , "Ordered list" =:
549− T.unlines
549+ T.unlines
550− [ " 1. Item1"
550+ [ " 1. Item1"
552− , " 2. Item2"
552+ , " 2. Item2"
554+ orderedListWith (1, Decimal, Period) [ para "Item1"
557+ , "Ordered list with implicit numbers" =:
554− orderedListWith (1, Decimal, Period) [ para "Item1"
565+ orderedListWith (1, Decimal, Period) [ para "Item1"
555− , para "Item2"
566+ , para "Item2"
557 , testGroup "Nested lists"
569 , testGroup "Nested lists"
558 [ "Nested list" =:
570 [ "Nested list" =:
559 T.unlines
571 T.unlines