1 (in-package :gemtext-tests)
2 
3 (defsuite gemtext-suite (all-suite))
4 
5 (defun cmp-lines (xs ys)
6   (cond ((and (null xs) (null ys)) t)
7         ((and (null xs) ys) nil)
8         ((and xs (null ys)) nil)
9         ((not (gemtext:line-eq (car xs) (car ys))) nil)
10         (t (cmp-lines (cdr xs) (cdr ys)))))
11 
12 (deftest test-parse-elements (gemtext-suite)
13   (loop with suite = `(("# title" . ,(make-instance 'gemtext:title
14                                                     :text "title"
15                                                     :level 1))
16                        ("#title" . ,(make-instance 'gemtext:title
17                                                    :text "title"
18                                                    :level 1))
19                        ("## title" . ,(make-instance 'gemtext:title
20                                                      :text "title"
21                                                      :level 2))
22                        ("###title" . ,(make-instance 'gemtext:title
23                                                      :text "title"
24                                                      :level 3))
25                        ;; handle gracefully invalid link lines
26                        ("=>" . ,(make-instance 'gemtext:paragraph
27                                                :text "=>"))
28                        ("=>/foo" . ,(make-instance 'gemtext:link
29                                                    :url (quri:uri "/foo")))
30                        ("=> /foo bar" . ,(make-instance 'gemtext:link
31                                                         :url (quri:uri "/foo")
32                                                         :text "bar"))
33                        ("* list item " . ,(make-instance 'gemtext:item
34                                                          :text "list item"))
35                        ("*text" . ,(make-instance 'gemtext:paragraph
36                                                   :text "*text"))
37                        (">cit" . ,(make-instance 'gemtext:blockquote
38                                                  :text "cit")))
39         for (str . exp) in suite
40         do (assert-true (cmp-lines (gemtext:parse-string str)
41                                    (list exp)))))
42 
43 (deftest test-parse-verbatim (gemtext-suite)
44   (let* ((content (format nil "hello~%"))
45          (doc (format nil "```~%~A```" content)))
46     (assert-true (cmp-lines (gemtext:parse-string doc)
47                             (list (make-instance 'gemtext:verbatim
48                                                  :text content))))))
49 
50 (deftest test-parse-verbatim-with-alt (gemtext-suite)
51   (let* ((alt "some text")
52          (content (format nil "hello~%"))
53          (doc (format nil "```~A~%~A```" alt content)))
54     (assert-true (cmp-lines (gemtext:parse-string doc)
55                             (list (make-instance 'gemtext:verbatim
56                                                  :alt alt
57                                                  :text content))))))
58 
59 (deftest test-parse-open-verbatim-block (gemtext-suite)
60   (let* ((content (format nil "hello~%"))
61          (doc (format nil "```~%~A" content)))
62     (assert-true (cmp-lines (gemtext:parse-string doc)
63                             (list (make-instance 'gemtext:verbatim
64                                                  :text content))))))