test: Provide first cut of invoke script

[secnet.git] / test / invoke

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