test: Provide bgerror

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

diff --git a/test/invoke b/test/invoke
index 592053243caa036d7110f62f1b7f7522a538ae47..98a7ea1187380370bd67187505d1762d1135e641 100755 (executable)
--- 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