Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
package require Tclx
load chiark_tcl_hbytes-1.so
package require Tclx
load chiark_tcl_hbytes-1.so
puts stderr "$orgsrc -> $dst: $emsg"
}
}
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
--- /dev/null
+#! /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