test: Beak out proc test-kex

[secnet.git] / test / common.tcl

diff --git a/test/common.tcl b/test/common.tcl
index cac5bfda4c885a69582a893c17fc0ee3085327f1..432fa7a36b33a54007680b266f84d2d44d8b8c67 100644 (file)
--- 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
+}