summaryrefslogtreecommitdiffstats
path: root/tests/keytest2.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/keytest2.tcl')
-rw-r--r--tests/keytest2.tcl8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/keytest2.tcl b/tests/keytest2.tcl
new file mode 100644
index 0000000..7b717d6
--- /dev/null
+++ b/tests/keytest2.tcl
@@ -0,0 +1,8 @@
+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
+