Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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) (test-run (lambda () expect)
(lambda () expr) (lambda () expr)
`((name . ,n) `((name . ,n)
(expect-source . expect)
(source . expr) (source . expr)
(var-names . (vars ...)) (var-names . (vars ...))
(var-values . ,(list vars ...)) (var-values . ,(list vars ...))
@ -528,7 +529,7 @@
(guard (guard
(exn (exn
(else (else
(warning "bad expect value") (warning "bad expect value" (assq-ref info 'expect-source))
(print-exception exn (current-error-port)) (print-exception exn (current-error-port))
#f)) #f))
(expect)))) (expect))))