From 254c966d8c809b57e420fdee29876e0439a29a53 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 Apr 2023 13:54:53 +0100
Subject: issue: Ignore preformatted blocks.

* tissue/issue.scm (file-details): Ignore preformatted blocks.
* tests/issue.scm ("Ignore preformatted block"): New test.
* issues/ignore-preformatted-blocks-in-gemtext-parser.gmi: Close
issue.
---
 tests/issue.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests')

diff --git a/tests/issue.scm b/tests/issue.scm
index 53d908f..97541a0 100644
--- a/tests/issue.scm
+++ b/tests/issue.scm
@@ -98,4 +98,11 @@ strings."
   (call-with-input-string "* [] foo"
     (compose hashtable->alist file-details)))
 
+(test-equal "Ignore preformatted block"
+  '()
+  (call-with-input-string "```
+# foo
+```"
+    (compose hashtable->alist file-details)))
+
 (test-end "issue")
-- 
cgit v1.2.3