From 1856fe44a8f7fe3802e6c3e5e6369f2c7e8e5699 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Fri, 5 Aug 2022 19:32:09 -0300
Subject: tests/heredoc.scm: Add test for (enable-syntax) macro
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Test both compiled and non-compiled variants of the test in order to
stress the scenarios of *when* the read-macro is set.

Also change the (eval-when ...) case used:
- "compile": for when the code is being compiled only, and before its
  execution;
- "eval": for the the code is being evaluated only, during its
  execution.

Also from the Guile manual (via 'info (guile)Loading'):

    Changing ‘current-reader’ is typically useful to introduce local
    syntactic changes, such that code following the ‘fluid-set!’ call
    is read using the newly installed reader.  The ‘current-reader’
    change should take place at evaluation time when the code is
    evaluated, or at compilation time when the code is compiled:

         (eval-when (compile eval)
           (fluid-set! current-reader my-own-reader))

    The ‘eval-when’ form above ensures that the ‘current-reader’ change
    occurs at the right time.
---
 Makefile                     | 11 +++++++++--
 src/xyz/euandreh/heredoc.scm |  2 +-
 tests/heredoc.scm            | 14 +++++++++++++-
 3 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/Makefile b/Makefile
index fa340bd..8c1c50e 100644
--- a/Makefile
+++ b/Makefile
@@ -71,8 +71,15 @@ uninstall:
 		rm -f "$(DESTDIR)$(INFODIR)"/`basename $$i`; \
 	done
 
-check-guile:
-	$(GUILE) -L src/ tests/heredoc.scm
+
+check-guile-evaled:
+	GUILE_AUTO_COMPILE=0 $(GUILE) -L src/ tests/heredoc.scm
+
+check-guile-compiled:
+	GUILE_AUTO_COMPILE=1 $(GUILE) -L src/ tests/heredoc.scm
+
+check-guile: check-guile-evaled check-guile-compiled
+
 
 check: check-guile
 
diff --git a/src/xyz/euandreh/heredoc.scm b/src/xyz/euandreh/heredoc.scm
index ba7b727..a7b969d 100644
--- a/src/xyz/euandreh/heredoc.scm
+++ b/src/xyz/euandreh/heredoc.scm
@@ -98,5 +98,5 @@
           s)))))
 
 (define-macro (enable-syntax)
-  `(eval-when (expand load eval)
+  `(eval-when (compile eval)
      (read-hash-extend #\" (@ (xyz euandreh heredoc) reader))))
diff --git a/tests/heredoc.scm b/tests/heredoc.scm
index e368119..931b7a2 100644
--- a/tests/heredoc.scm
+++ b/tests/heredoc.scm
@@ -1,5 +1,6 @@
 (use-modules
   ((xyz euandreh heredoc) #:prefix heredoc:)
+  ((language tree-il) #:prefix tree-il:)
   ((srfi srfi-64) #:prefix t:))
 (heredoc:enable-syntax)
 
@@ -315,6 +316,16 @@ fi
                     fi
                     """#)))
 
+(define (test-enable-syntax)
+  (t:test-group "enable-syntax"
+    (t:test-equal '(read-hash-extend #\"
+                                    (@ (xyz euandreh heredoc)
+                                       reader))
+                  (tree-il:tree-il->scheme
+                   (macroexpand
+                     '(heredoc:enable-syntax))))))
+
+
 (define test-fns
   (list
    test-extract-single-line-indentation
@@ -322,7 +333,8 @@ fi
    test-maximum-indentation
    test-trim-indentation
    test-non-quote-chars?
-   test-reader))
+   test-reader
+   test-enable-syntax))
 
 (define (main)
   (t:test-begin "heredoc")
-- 
cgit v1.2.3