Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Show source for failed expected value.

Browse source
This commit is contained in:
Alex Shinn 2024-05-16 23:27:57 +09:00
parent 7ac3cfebe1
commit 47f7ab01cf
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/test.scm
View file

@ -174,6 +174,7 @@
(test-run (lambda () expect)
(lambda () expr)
`((name . ,n)
(expect-source . expect)
(source . expr)
(var-names . (vars ...))
(var-values . ,(list vars ...))
@ -528,7 +529,7 @@
(guard
(exn
(else
(warning "bad expect value")
(warning "bad expect value" (assq-ref info 'expect-source))
(print-exception exn (current-error-port))
#f))
(expect))))