diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-04-23 09:44:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-04-24 22:15:49 +0200 |
| commit | 6853ceb0fc790d09a8905a3991bca4d9aab07542 (patch) | |
| tree | 6ea276a6cf52919f7889d900ac700e5e5bf953f2 | |
| parent | 9e9841e8da64e476f6bbfd14f12eee28364ce929 (diff) | |
| download | gnutls-6853ceb0fc790d09a8905a3991bca4d9aab07542.tar.gz | |
guile: Tests show their PID upon uncaught exceptions.
* guile/modules/gnutls/build/tests.scm (run-test): Display the PID when
throwing an exception.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guile/modules/gnutls/build/tests.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guile/modules/gnutls/build/tests.scm b/guile/modules/gnutls/build/tests.scm index 2c5c573f65..549917e838 100644 --- a/guile/modules/gnutls/build/tests.scm +++ b/guile/modules/gnutls/build/tests.scm @@ -1,5 +1,5 @@ ;;; GnuTLS --- Guile bindings for GnuTLS. -;;; Copyright (C) 2011-2012, 2016 Free Software Foundation, Inc. +;;; Copyright (C) 2011-2012, 2016, 2021 Free Software Foundation, Inc. ;;; ;;; GnuTLS is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -35,7 +35,8 @@ display a backtrace. Otherwise, return THUNK's return value." (lambda () #t) (lambda () (format (current-error-port) - "~%throw to `~a' with args ~s~%" key args) + "~%throw to `~a' with args ~s [PID ~a]~%" + key args (getpid)) (display-backtrace (make-stack #t) (current-output-port))) (lambda () (exit 1))) |