diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-03-15 17:26:45 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-19 15:14:08 +0100 |
commit | 1dca6aaafa9f842565deab1fe7e6929f25544551 (patch) | |
tree | 4410b84cb55e9ffbbc26310cd815aa0a8b3ec16f /tests | |
parent | 2b0a370d00e72aba7385eba0fa5db2e3ca7085fb (diff) | |
download | patches-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.scm | 3 |
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))) |