diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/heredoc.scm | 16 |
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? |