Artifact 24f9bfe9d5a33c619fcfe38d44f4373ba0ee04af:

• File tests/keytest2.tcl — part of check-in [b423807e0e] at 2003-07-07 20:24:49 on branch trunk — * tls.c (Tls_Init): added tls::misc command provided by * tlsX509.c: Wojciech Kocjan (wojciech kocjan.org) * tests/keytest1.tcl: to expose more low-level SSL commands * tests/keytest2.tcl: (user: hobbs, size: 121) [annotate] [blame] [check-ins using]

0000: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0010: 74 6c 73 0a 0a 73 65 74 20 73 20 5b 74 6c 73 3a  tls..set s [tls:
0020: 3a 73 6f 63 6b 65 74 20 31 32 37 2e 30 2e 30 2e  :socket 127.0.0.
0030: 31 20 31 32 33 30 30 5d 0a 70 75 74 73 20 24 73  1 12300].puts $s
0040: 20 22 41 20 6c 69 6e 65 22 0a 66 6c 75 73 68 20   "A line".flush 
0050: 24 73 0a 70 75 74 73 20 5b 6a 6f 69 6e 20 5b 74  $s.puts [join [t
0060: 6c 73 3a 3a 73 74 61 74 75 73 20 24 73 5d 20 5c  ls::status $s] \
0070: 6e 5d 0a 65 78 69 74 0a 0a                       n].exit..