Artifact 4103d4acaea9bd136134ea7a4855e437da656ad74b9c9a97a24115592ef50856:

• File tests/keytest2.tcl — part of check-in [2c0be4cb7f] at 2024-07-05 18:03:44 on branch tls-1.8 — Updated callback handlers in tls.tcl to be backwards compatible for earlier TCLTLS versions (user: bohagan, size: 241) [annotate] [blame] [check-ins using]

#! /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