keytest2.tcl at [a1757bae4a]
Bounty program for improvements to Tcl and certain Tcl packages.

File tests/keytest2.tcl artifact 24f9bfe9d5 part of check-in a1757bae4a


package require tls

set s [tls::socket 127.0.0.1 12300]
puts $s "A line"
flush $s
puts [join [tls::status $s] \n]
exit