From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 10 Oct 2019 16:30:27 +0000 (+0100)
Subject: test: Provide first cut of invoke script
X-Git-Tag: v0.5.0~133
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a75e710effc0c561af6ace0cae626d2698dd9d74;p=secnet.git

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>
---

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