From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 11 Oct 2019 19:14:49 +0000 (+0100)
Subject: test: Provide bgerror
X-Git-Tag: v0.5.0~127
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=4de4f53e400d704f7969b3db1623cb65a39b7785;p=secnet.git

test: Provide bgerror

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/test/invoke b/test/invoke
index 5920532..98a7ea1 100755
--- a/test/invoke
+++ b/test/invoke
@@ -121,6 +121,21 @@ proc netlink-readable {which} {
     }
 }
 
+proc bgerror {message} {
+    global errorInfo errorCode
+    catch {
+	puts stderr "
+----------------------------------------
+$errorInfo
+
+$errorCode
+$message
+----------------------------------------
+    "
+    }
+    exit 1
+}
+
 spawn-secnet inside
 spawn-secnet outside