diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-03 17:08:12 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 17:08:55 +0100 |
commit | 118f0c23c4e08e2c34415e61a4e419dfa748d058 (patch) | |
tree | 8b801f298cc49b99441a4484788a3d173c559c17 | |
parent | 079800d68291b27a7c9b66d183bf79eb22808fc5 (diff) | |
download | guile-118f0c23c4e08e2c34415e61a4e419dfa748d058.tar.gz |
Relax srfi-105 source expectations
* test-suite/tests/srfi-105.test ("curly-infix"): For { EXPR }, allow
the source to be at the { rather than at EXPR.
-rw-r--r-- | test-suite/tests/srfi-105.test | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/test-suite/tests/srfi-105.test b/test-suite/tests/srfi-105.test index d212bd084..34ea47b55 100644 --- a/test-suite/tests/srfi-105.test +++ b/test-suite/tests/srfi-105.test @@ -186,13 +186,19 @@ (lambda () (read-string " { 1.0 }"))))) (and (equal? (source-property sexp 'line) 0) - (equal? (source-property sexp 'column) 3)))) + (case (source-property sexp 'column) + ((1) (throw 'unresolved)) + ((3) #t) + (else #f))))) (pass-if "neoteric expression" (let ((sexp (with-read-options '(curly-infix positions) (lambda () (read-string " { f(x) }"))))) (and (equal? (source-property sexp 'line) 0) - (equal? (source-property sexp 'column) 3))))) + (case (source-property sexp 'column) + ((1) (throw 'unresolved)) + ((3) #t) + (else #f)))))) ;; Verify that neoteric expressions are recognized only within curly braces. (pass-if (equal? '(a(x)(y)) '(a (x) (y)))) |