diff options
| author | EuAndreh <eu@euandre.org> | 2022-05-17 15:41:56 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-05-17 15:41:56 -0300 |
| commit | 19ecf3b372a1a60cfafcb73f47a64ec15ed621a3 (patch) | |
| tree | 151bd44b776ecf0c18c088610a1237943fa6aa7f /tests | |
| parent | git mv src/heredoc.scm src/xyz/euandreh/ (diff) | |
| download | guile-heredoc-19ecf3b372a1a60cfafcb73f47a64ec15ed621a3.tar.gz guile-heredoc-19ecf3b372a1a60cfafcb73f47a64ec15ed621a3.tar.xz | |
Update references to src/heredoc.scm
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? |