diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-03-07 10:28:03 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-07 10:52:16 +0100 |
| commit | c572b11f3d1e5c663ce28bfd1410df53b5019ff3 (patch) | |
| tree | 3c3f49fda38dfd1718e1b0a9572cb1e9ed929767 | |
| parent | a1a1400c7ce04a377a4a120bd15ce723c81fb5a8 (diff) | |
| download | guile-c572b11f3d1e5c663ce28bfd1410df53b5019ff3.tar.gz | |
tests: Add read-syntax + syntax-source test.
* test-suite/tests/reader.test ("read-syntax")["syntax-source"]: New
test.
| -rw-r--r-- | test-suite/tests/reader.test | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index ad7c6d575..27daf6106 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -1,6 +1,6 @@ ;;;; reader.test --- Reader test. -*- coding: iso-8859-1; mode: scheme -*- ;;;; -;;;; Copyright (C) 1999,2001-2003,2007-2011,2013-2015,2020,2021 +;;;; Copyright (C) 1999, 2001-2003, 2007-2011, 2013-2015, 2020-2022 ;;;; Free Software Foundation, Inc. ;;;; ;;;; Jim Blandy <jimb@red-bean.com> @@ -554,7 +554,19 @@ (with-test-prefix "read-syntax" (pass-if-equal "annotations" 'args - (syntax-expression (call-with-input-string "( . args)" read-syntax)))) + (syntax-expression (call-with-input-string "( . args)" + read-syntax))) + + (pass-if-equal "syntax-source" + '((filename . "sample.scm") (line . 2) (column . 3)) + (syntax-source + (call-with-input-string "\ +;; first line +;; second line + (this is an expression)" + (lambda (port) + (set-port-filename! port "sample.scm") + (read-syntax port)))))) ;;; Local Variables: ;;; eval: (put 'with-read-options 'scheme-indent-function 1) |