From 128ff46775ddc519c8e21361e5a3c4ac67785206 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 13 Oct 2019 00:24:00 +0100
Subject: [PATCH] test: Beak out proc test-kex

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 test/common.tcl  | 12 ++++++++++++
 test/t-basic-kex | 10 +---------
 2 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/test/common.tcl b/test/common.tcl
index cac5bfd..432fa7a 100644
--- a/test/common.tcl
+++ b/test/common.tcl
@@ -215,3 +215,15 @@ proc udp-relay {data src sock args} {
 	puts stderr "$orgsrc -> $dst: $emsg"
     }
 }
+
+proc test-kex {} {
+    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
index bcbadf5..caff535 100755
--- a/test/t-basic-kex
+++ b/test/t-basic-kex
@@ -2,12 +2,4 @@
 
 source test/common.tcl
 
-udp-proxy
-spawn-secnet inside
-spawn-secnet outside
-
-after 500 sendpkt
-after 1000 sendpkt
-after 5000 timed-out
-
-vwait ok
+test-kex
-- 
2.30.2