about summary refs log tree commit diff stats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.scm46
1 files changed, 23 insertions, 23 deletions
diff --git a/tests/run.scm b/tests/run.scm index 49da815..cd5acba 100644 --- a/tests/run.scm +++ b/tests/run.scm
@@ -21,29 +21,29 @@
21 21
22(define test-file (make-pathname (list test-dir) "test" "gmi")) 22(define test-file (make-pathname (list test-dir) "test" "gmi"))
23(define expected-doc 23(define expected-doc
24 '((meta ("title" "a" "test" "document") 24 '(((meta) ("title" "a" "test" "document")
25 ("date" "2024-05-13T03:02:45Z") 25 ("date" "2024-05-13T03:02:45Z")
26 ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61")) 26 ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61"))
27 (hdr1 ("a" "test" "document" "of" "some" "kind")) 27 ((hdr1) ("a" "test" "document" "of" "some" "kind"))
28 (para ("here" "is" "a" "test" "document.") 28 ((para) ("here" "is" "a" "test" "document.")
29 ("it" "has" "paragraphs") 29 ("it" "has" "paragraphs")
30 (link "example.com" "with" "links!") 30 (link "example.com" "with" "links!")
31 ("and" "other" "things.")) 31 ("and" "other" "things."))
32 (hdr2 ("a" "code" "example")) 32 ((hdr2) ("a" "code" "example"))
33 (verb ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}")) 33 ((verb) ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}"))
34 (hdr3 ("other" "examples")) 34 ((hdr3) ("other" "examples"))
35 (quot ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky.")) 35 ((quot) ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky."))
36 (list ("list" "1") ("list" "2") ("list" "3")) 36 ((list) ("list" "1") ("list" "2") ("list" "3"))
37 (link ("example.com" "link" "list" "1") 37 ((link) ("example.com" "link" "list" "1")
38 ("example.com" "link" "list" "2") 38 ("example.com" "link" "list" "2")
39 ("example.com" "link" "list" "3")) 39 ("example.com" "link" "list" "3"))
40 (para ("ok," "now" "for" "another" "test:") 40 ((para) ("ok," "now" "for" "another" "test:")
41 ("will" "*strong*" "in-line" "text" "be" "converted?") 41 ("will" "*strong*" "in-line" "text" "be" "converted?")
42 ("as" "well" "as" "`code`," "_emph_" "and" "such?") 42 ("as" "well" "as" "`code`," "_emph_" "and" "such?")
43 ("what" "if" "*i" "_nest_" "them*") 43 ("what" "if" "*i" "_nest_" "them*")
44 ("what" "if" "*i" "_nest" "them*" "wrong_" "?") 44 ("what" "if" "*i" "_nest" "them*" "wrong_" "?")
45 ("what" "about" "*breaking" "them") 45 ("what" "about" "*breaking" "them")
46 ("over" "two" "lines?*")))) 46 ("over" "two" "lines?*"))))
47(define actual-doc (with-input-from-file test-file parse)) 47(define actual-doc (with-input-from-file test-file parse))
48 48
49(test "read" expected-doc actual-doc) 49(test "read" expected-doc actual-doc)