Commit Diff

Commit:
0e6cd155a2b2718bde3c07e6cd8baf4694b5e711
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
add a test for the new :join-lines option
Actions:
Patch | Tree
commit - f45a86224efc182624b4c54b8e403cb6005e0375
commit + 0e6cd155a2b2718bde3c07e6cd8baf4694b5e711
blob - 7d9bf6b7bc2e80c99d90aced9a8cca96bb4888a3
blob + 4c296625305e078bdbdc746348dd95c616d6d68f
--- t/gemtext-tests.lisp
+++ t/gemtext-tests.lisp
@@ -62,3 +62,11 @@
     (assert-true (cmp-lines (gemtext:parse-string doc)
                             (list (make-instance 'gemtext:verbatim
                                                  :text content))))))
+
+(deftest test-parse-joining-lines (gemtext-suite)
+  (let* ((content (format nil "hello~%world~%~%some~%more~%"))
+         (doc (list (make-instance 'gemtext:paragraph :text "hello world")
+                    (make-instance 'gemtext:paragraph :text "")
+                    (make-instance 'gemtext:paragraph :text "some more"))))
+    (assert-true (cmp-lines (gemtext:parse-string content :join-lines t)
+                            doc))))