test/t-basic-kex

   1 #! /usr/bin/tclsh
   2
   3 source test/common.tcl
   4
   5 udp-proxy
   6 spawn-secnet inside
   7 spawn-secnet outside
   8
   9 after 500 sendpkt
  10 after 1000 sendpkt
  11 after 5000 timed-out
  12
  13 vwait ok