Add additional formatting test

Author: pyrmont

test/suite-doc.janet

@@ -30,7 +30,7 @@
         "doc-parse multi-word line")
 (assert (deep= (doc-parse "foo bar baz qux\n\nfoo bar baz qux")
                '@[(("foo" 3) ("bar" 3) ("baz" 3) ("qux" 3)) (("foo" 3) ("bar" 3) ("baz" 3) ("qux" 3))])
-        "doc-parse multi-word line")
+        "doc-parse multiple paragraphs")
 (assert (deep= (doc-parse "* foo")
                '@[@[:ul @{} @[(("foo" 3))]]])
         "doc-parse simple ul")
@@ -63,6 +63,9 @@
 (assert (deep= (doc-format "* this is a test of wrapping" 30 0)
                @"\n* this is a test of \n  wrapping\n")
         "doc-format wrap lists")
+(assert (deep= (doc-format "* foo\n  * bar\n  * baz\n* qux" nil 0)
+               @"\n* foo\n  * bar\n  * baz\n* qux\n")
+        "doc-format nested lists")
 (assert (deep= (doc-format "foo _bar_ **baz qux**" nil 0 false)
                @"\nfoo _bar_ **baz qux**\n")
         "doc-format facets")