about summary refs log tree commit diff stats
path: root/tests
diff options
context:
space:
mode:
authorCase Duckworth2024-06-15 21:17:03 -0500
committerCase Duckworth2024-06-15 21:17:03 -0500
commit703e9e93087d32364087a0ebc9e315869b70ff7c (patch)
treede5cfdd1a687dbe68686929497e870fad5f28800 /tests
parentWrite executable (diff)
downloadjimmy-703e9e93087d32364087a0ebc9e315869b70ff7c.tar.gz
jimmy-703e9e93087d32364087a0ebc9e315869b70ff7c.zip
Update things
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)