summary refs log tree commit diff
path: root/tests/inferior.scm
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/inferior.scm
parent2b0a370d00e72aba7385eba0fa5db2e3ca7085fb (diff)
downloadguix-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/inferior.scm')
-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)))