Artifact de5bedeb58bcc4dd85b16ef23866a21b0a0375cf0818b85c2ec394398280de2e:

• File tests/keytest2.tcl — part of check-in [1ef3d3faef] at 2024-10-26 16:08:31 on branch tls-1.8 — Removed extra padding, convert spaces to tabs, etc. (user: bohagan, size: 240) [annotate] [blame] [check-ins using] [more...]

#!/usr/bin/env tclsh

set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
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