From 727995a409632d4c143ba4b6b088c7df40f074e7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 18 May 2024 21:15:54 -0500
Subject: Scheme bit!

---
 tests/run.scm | 61 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 tests/run.scm

(limited to 'tests')

diff --git a/tests/run.scm b/tests/run.scm
new file mode 100644
index 0000000..aa5dab1
--- /dev/null
+++ b/tests/run.scm
@@ -0,0 +1,61 @@
+(import scheme
+        (chicken base)
+        (chicken load)
+        (chicken port)
+        (chicken process-context)
+        test)
+
+;;; Setup
+
+(import (jimmy emit)
+        (jimmy read)
+        #;(jimmy wrap))
+
+(define test-doc #<<end-document
+: title a test document
+: date 2024-05-13T03:02:45Z
+: uuid b3daebf1-440b-4828-a4d9-9089c7bd7c61
+
+# a test document of some kind
+
+here is a test document.
+it has paragraphs
+=> example.com with links!
+and other things.
+
+## a code example
+```
+for (a=1;a<=4;a++) {
+	printf("%d\n", a);
+}
+```
+
+### other examples
+
+> a blockquote is a quote
+> that is blocky.
+
+* list 1
+* list 2
+* list 3
+=> example.com link list 1
+=> example.com link list 2
+=> example.com link list 3
+
+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?*
+end-document
+)
+
+;;; Tests
+
+(test "read"
+      '((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?*"))
+      (call-with-input-string test-doc parse))
+
+(test-exit)
-- 
cgit 1.4.1-21-gabe81