summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/heredoc.scm16
1 files changed, 7 insertions, 9 deletions
diff --git a/tests/heredoc.scm b/tests/heredoc.scm
index a445ac1..3c0fb7b 100644
--- a/tests/heredoc.scm
+++ b/tests/heredoc.scm
@@ -1,13 +1,11 @@
(use-modules
- (heredoc)
+ ((xyz euandreh heredoc) #:prefix heredoc:)
((srfi srfi-64) #:prefix t:))
-
-(eval-when (expand load eval)
- (read-hash-extend #\" heredoc-reader))
+(heredoc:enable-syntax)
(define (test-extract-single-line-indentation)
(define extract-single-line-indentation
- (@@ (heredoc) extract-single-line-indentation))
+ (@@ (xyz euandreh heredoc) extract-single-line-indentation))
(t:test-group "extract-single-line-indentation"
(t:test-equal '(#nil #f 0)
(extract-single-line-indentation
@@ -67,7 +65,7 @@
(define (test-extract-line-indentations)
(define extract-line-indentations
- (@@ (heredoc) extract-line-indentations))
+ (@@ (xyz euandreh heredoc) extract-line-indentations))
(t:test-group "extract-line-indentations"
(t:test-equal '()
(extract-line-indentations
@@ -99,7 +97,7 @@
(define (test-maximum-indentation)
(define maximum-indentation
- (@@ (heredoc) maximum-indentation))
+ (@@ (xyz euandreh heredoc) maximum-indentation))
(t:test-group "maximum-indentation"
(t:test-equal 0
(maximum-indentation
@@ -135,7 +133,7 @@
(define (test-trim-indentation)
(define trim-indentation
- (@@ (heredoc) trim-indentation))
+ (@@ (xyz euandreh heredoc) trim-indentation))
(t:test-group "trim-indentation"
(t:test-equal ""
(trim-indentation ""))
@@ -201,7 +199,7 @@ exit $ret
(define (test-non-quote-chars?)
(define non-quote-chars?
- (@@ (heredoc) non-quote-chars?))
+ (@@ (xyz euandreh heredoc) non-quote-chars?))
(t:test-group "non-quote-chars?"
(t:test-equal #f
(non-quote-chars?