From a75e710effc0c561af6ace0cae626d2698dd9d74 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 10 Oct 2019 17:30:27 +0100
Subject: [PATCH] test: Provide first cut of invoke script

This is going to be reorganised and improved a lot.  Right now it
doesn't do much and doesn't exit.  If ^C'd it leaks the secnet
processes.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 test/invoke | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 test/invoke

diff --git a/test/invoke b/test/invoke
new file mode 100755
index 0000000..4795075
--- /dev/null
+++ b/test/invoke
@@ -0,0 +1,15 @@
+#! /usr/bin/tclsh
+
+package require Tclx
+
+proc spawn-secnet {which} {
+    upvar #0 pids($which) pid
+    set argl [list ./secnet -dvnc test-example/$which.conf]
+    set pid [fork]
+    if {!$pid} {
+	execl really $argl
+    }
+}
+
+spawn-secnet inside
+spawn-secnet outside
-- 
2.30.2