summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-15 17:26:45 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-19 15:14:08 +0100
commit1dca6aaafa9f842565deab1fe7e6929f25544551 (patch)
tree4410b84cb55e9ffbbc26310cd815aa0a8b3ec16f /tests
parent2b0a370d00e72aba7385eba0fa5db2e3ca7085fb (diff)
downloadpatches-1dca6aaafa9f842565deab1fe7e6929f25544551.tar
patches-1dca6aaafa9f842565deab1fe7e6929f25544551.tar.gz
inferior: '&inferior-exception' includes a stack trace.
* guix/inferior.scm (port->inferior): Bump protocol to (0 1 1). (&inferior-exception)[stack]: New field. (read-repl-response): Recognize 'exception' form for protocol (0 1 1). * tests/inferior.scm ("&inferior-exception"): Check the value returned by 'inferior-exception-stack'.
Diffstat (limited to 'tests')
-rw-r--r--tests/inferior.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/inferior.scm b/tests/inferior.scm
index b4417d8629..2f5215920b 100644
--- a/tests/inferior.scm
+++ b/tests/inferior.scm
@@ -68,6 +68,9 @@
(guard (c ((inferior-exception? c)
(close-inferior inferior)
(and (eq? inferior (inferior-exception-inferior c))
+ (match (inferior-exception-stack c)
+ (((_ (files lines columns)) ..1)
+ (member "guix/repl.scm" files)))
(inferior-exception-arguments c))))
(inferior-eval '(throw 'a 'b 'c 'd) inferior)
'badness)))