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 (executable)
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