mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

eval-string.test: check source properties

Browse source 
* test-suite/tests/eval-string.test: add properties test.

cf. 025bb024ae
This commit is contained in:
Rob Browning 2024-04-05 17:39:06 -05:00
parent 025bb024ae
commit 0ffa802be2
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
NEWS
View file

@ -55,6 +55,7 @@ This speeds up copying large files a lot while saving the disk space.
** 'make-custom-port' now honors its #:conversion-strategy argument
** Hashing of UTF-8 symbols with non-ASCII characters avoids corruption
(<https://bugs.gnu.org/56413>)
** 'eval-string' respects #:column (previously it was set to the #:line)
This issue could cause `scm_from_utf8_symbol' and
`scm_from_utf8_symboln` to incorrectly conclude that the symbol hadn't

7
test-suite/tests/eval-string.test
View file

@ -51,4 +51,9 @@
(equal? (call-with-values (lambda ()
(eval-string "(values 1 2)" #:compile? #t))
list)
'(1 2))))
'(1 2)))
(pass-if-equal "source properties"
'((filename . "test.scm") (line . 3) (column . 42))
(source-properties
(eval-string "'(1 2)" #:file "test.scm" #:line 3 #:column 41))))