diff options
Diffstat (limited to 'tests/heredoc.scm')
-rw-r--r-- | tests/heredoc.scm | 14 |
1 files changed, 13 insertions, 1 deletions
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") |