From 703e9e93087d32364087a0ebc9e315869b70ff7c Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 15 Jun 2024 21:17:03 -0500 Subject: Update things --- tests/run.scm | 46 +++++++++++++++++++++++----------------------- 1 file changed, 23 insertions(+), 23 deletions(-) (limited to 'tests') 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 @@ (define test-file (make-pathname (list test-dir) "test" "gmi")) (define expected-doc - '((meta ("title" "a" "test" "document") - ("date" "2024-05-13T03:02:45Z") - ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61")) - (hdr1 ("a" "test" "document" "of" "some" "kind")) - (para ("here" "is" "a" "test" "document.") - ("it" "has" "paragraphs") - (link "example.com" "with" "links!") - ("and" "other" "things.")) - (hdr2 ("a" "code" "example")) - (verb ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}")) - (hdr3 ("other" "examples")) - (quot ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky.")) - (list ("list" "1") ("list" "2") ("list" "3")) - (link ("example.com" "link" "list" "1") - ("example.com" "link" "list" "2") - ("example.com" "link" "list" "3")) - (para ("ok," "now" "for" "another" "test:") - ("will" "*strong*" "in-line" "text" "be" "converted?") - ("as" "well" "as" "`code`," "_emph_" "and" "such?") - ("what" "if" "*i" "_nest_" "them*") - ("what" "if" "*i" "_nest" "them*" "wrong_" "?") - ("what" "about" "*breaking" "them") - ("over" "two" "lines?*")))) + '(((meta) ("title" "a" "test" "document") + ("date" "2024-05-13T03:02:45Z") + ("uuid" "b3daebf1-440b-4828-a4d9-9089c7bd7c61")) + ((hdr1) ("a" "test" "document" "of" "some" "kind")) + ((para) ("here" "is" "a" "test" "document.") + ("it" "has" "paragraphs") + (link "example.com" "with" "links!") + ("and" "other" "things.")) + ((hdr2) ("a" "code" "example")) + ((verb) ("for (a=1;a<=4;a++) {") ("\tprintf(\"%d\\n\", a);") ("}")) + ((hdr3) ("other" "examples")) + ((quot) ("a" "blockquote" "is" "a" "quote") ("that" "is" "blocky.")) + ((list) ("list" "1") ("list" "2") ("list" "3")) + ((link) ("example.com" "link" "list" "1") + ("example.com" "link" "list" "2") + ("example.com" "link" "list" "3")) + ((para) ("ok," "now" "for" "another" "test:") + ("will" "*strong*" "in-line" "text" "be" "converted?") + ("as" "well" "as" "`code`," "_emph_" "and" "such?") + ("what" "if" "*i" "_nest_" "them*") + ("what" "if" "*i" "_nest" "them*" "wrong_" "?") + ("what" "about" "*breaking" "them") + ("over" "two" "lines?*")))) (define actual-doc (with-input-from-file test-file parse)) (test "read" expected-doc actual-doc) -- cgit 1.4.1-21-gabe81