Artifact b3210d97a2ac10054da8aa19a2f8d62daca256c6199fe28b3e864e42c124b918:

• Executable file tests/keytest2.tcl — part of check-in [61fb454f56] at 2024-02-20 16:22:56 on branch bohagan — Merge trunk (user: jan.nijtmans, size: 309) [annotate] [blame] [check-ins using] [more...]

#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}

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