mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +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

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))))