From 96d96c43efd1e61d49c877ad88f0d12c3d5687f1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 12 Oct 2019 22:03:17 +0100
Subject: [PATCH] test: Split "invoke" up

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 test/{invoke => common.tcl} | 12 ------------
 test/t-basic-kex            | 13 +++++++++++++
 2 files changed, 13 insertions(+), 12 deletions(-)
 rename test/{invoke => common.tcl} (96%)
 mode change 100755 => 100644
 create mode 100755 test/t-basic-kex

diff --git a/test/invoke b/test/common.tcl
old mode 100755
new mode 100644
similarity index 96%
rename from test/invoke
rename to test/common.tcl
index 22554cf..fa06e5b
--- a/test/invoke
+++ b/test/common.tcl
@@ -1,5 +1,3 @@
-#! /usr/bin/tclsh
-
 package require Tclx
 
 load chiark_tcl_hbytes-1.so
@@ -193,13 +191,3 @@ proc udp-relay {data src sock args} {
 	puts stderr "$orgsrc -> $dst: $emsg"
     }
 }
-
-udp-proxy
-spawn-secnet inside
-spawn-secnet outside
-
-after 500 sendpkt
-after 1000 sendpkt
-after 5000 timed-out
-
-vwait ok
diff --git a/test/t-basic-kex b/test/t-basic-kex
new file mode 100755
index 0000000..bcbadf5
--- /dev/null
+++ b/test/t-basic-kex
@@ -0,0 +1,13 @@
+#! /usr/bin/tclsh
+
+source test/common.tcl
+
+udp-proxy
+spawn-secnet inside
+spawn-secnet outside
+
+after 500 sendpkt
+after 1000 sendpkt
+after 5000 timed-out
+
+vwait ok
-- 
2.30.2