TclTLS verifyCmd test

package require tls

proc ::tls::log {level msg} { puts ">>>> $msg" }
set ::tls::debug 1

set tlsSocket [list \
    ::tls::socket -autoservername true \
]

proc verifyCmd {op sock args} {
    puts "$op $sock $args"
    tailcall ::tls::callback $op $sock {*}$args
}

set chan [{*}$tlsSocket \
    -autoservername true \
    -command verifyCmd \
    github.com 443 \
]
puts [read -nonewline $chan]