diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/run.scm | 46 |
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) |