From 4bce5c87ecc81f8ba3ed816ca83582d788d37d36 Mon Sep 17 00:00:00 2001
From: XeroOl <xerool@protonmail.com>
Date: Mon, 13 May 2024 01:06:46 -0500
Subject: [PATCH] Tests for reader macros

---
 test/hover.fnl | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/test/hover.fnl b/test/hover.fnl
index 380cc16..ea864d5 100644
--- a/test/hover.fnl
+++ b/test/hover.fnl
@@ -11,7 +11,9 @@
                (.. "Invalid hover message\nfrom:    " (view file-contents)))
       (= (type ?response-string) :function)
       (faith.is (?response-string (?. message :result :contents :value))
-               (.. "Invalid hover message\nfrom:    " (view file-contents)))
+               (.. "Invalid hover message:\n"
+                   (?. message :result :contents :value)
+                   "\nfrom:    " (view file-contents)))
 
 
       (faith.= null message.result))))
@@ -143,15 +145,26 @@ new message handler `msgh`.")
   ;           `(,a ,b ,c))
   ;         (fo|o print :hello :world)"
   ;        "```fnl\n(macro foo [a b c] ...)\n```\ndocstring!")
+  nil)
+
+(fn test-reader []
+  ;; works in #
   (check "#(prin|t :hello)"
          #($:find "```fnl\n(print ...)\n```" 1 true))
-  (check "(hash|fn (print :hello))"
-         #($:find "```fnl\n(hashfn ...)\n```" 1 true))
-  (check "#prin|t"
-         #($:find "```fnl\n(print ...)\n```" 1 true))
+  ;; works in ` and ,
   (check ";; fennel-ls: macro-file
           `(,prin|t :hello)"
          #($:find "```fnl\n(print ...)\n```" 1 true))
+  (check "#prin|t"
+         #($:find "```fnl\n(print ...)\n```" 1 true))
+  (check "(hash|fn (print :hello))"
+         #($:find "```fnl\n(hashfn ...)\n```" 1 true))
+  ;; You can use it ON the symbol
+  (check "#|(print)"
+         #($:find "```fnl\n(hashfn ...)\n```" 1 true))
+  (check ";; fennel-ls: macro-file
+          `|(print)"
+         #($:find "```fnl\n(quote x)\n```" 1 true))
   nil)
 
 {: test-literals
@@ -162,4 +175,5 @@ new message handler `msgh`.")
  : test-multisym
  : test-crash
  : test-multival
- : test-macro}
+ : test-macro
+ : test-reader}