Artifact 419fd5f7afdd167c3e121d27e922cc9df4979ad10d2ea9cbbc6575c8a0664238:

• Executable file tests/keytest2.tcl — part of check-in [fe85c1fb85] at 2025-02-22 23:15:33 on branch tls-2.0 — Added package prefer to test scripts to use beta releases. Corrected Makefile and tests/all.tcl to pass args for make test. Set test case socket defaults to -require 0 since test certificates are out-of-date. (user: bohagan, size: 251) [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 -require 0 127.0.0.1 12300]
puts $s "A line"
flush $s
puts [join [tls::status $s] \n]
exit