diff options
| author | Case Duckworth | 2024-06-15 21:17:03 -0500 |
|---|---|---|
| committer | Case Duckworth | 2024-06-15 21:17:03 -0500 |
| commit | 703e9e93087d32364087a0ebc9e315869b70ff7c (patch) | |
| tree | de5cfdd1a687dbe68686929497e870fad5f28800 /tests | |
| parent | Write executable (diff) | |
| download | jimmy-703e9e93087d32364087a0ebc9e315869b70ff7c.tar.gz jimmy-703e9e93087d32364087a0ebc9e315869b70ff7c.zip | |
Update things
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) |