dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-08-23 21:17:24 +00:00
commit 492faee1e5
4 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/reader.test
View file

@ -151,6 +151,12 @@
(let ((sexp (with-read-options '(positions)
(lambda ()
(read-string "(+ 1 2 3)")))))
(and (equal? (source-property sexp 'line) 0)
(equal? (source-property sexp 'column) 0))))
(pass-if "positions on quote"
(let ((sexp (with-read-options '(positions)
(lambda ()
(read-string "'abcde")))))
(and (equal? (source-property sexp 'line) 0)
(equal? (source-property sexp 'column) 0)))))