Overview
| Comment: | Updated key tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tls-1-7 |
| Files: | files | file ages | folders |
| SHA1: |
baa98c9b5d55abf992fd7ddd59893607 |
| User & Date: | rkeene on 2016-11-29 23:46:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-11-29
| ||
| 23:47 | Ignore generated file check-in: a5ce94c94d user: rkeene tags: tls-1-7 | |
| 23:46 | Updated key tests check-in: baa98c9b5d user: rkeene tags: tls-1-7 | |
| 23:42 | Improved tlsIO testing check-in: 61578a1d91 user: rkeene tags: tls-1-7 | |
Changes
Modified tests/keytest1.tcl
from [d7e22b5f32]
to [897f9f74ad].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}
package require tls
proc creadable {s} {
puts "LINE=[gets $s]"
after 2000
exit
}
proc myserv {s args} {
fileevent $s readable [list creadable $s]
}
tls::misc req 1024 $keyfile $certfile [list C CCC ST STTT L LLLL O OOOO OU OUUUU CN CNNNN Email [email protected] days 730 serial 12]
tls::socket -keyfile $keyfile -certfile $certfile -server myserv 12300
puts "Now run keytest2.tcl"
vwait forever
| > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
#!/bin/sh
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}
set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]
package require tls
proc creadable {s} {
puts "LINE=[gets $s]"
after 2000
exit
}
proc myserv {s args} {
fileevent $s readable [list creadable $s]
}
close [file tempfile keyfile]
close [file tempfile certfile]
tls::misc req 1024 $keyfile $certfile [list C CCC ST STTT L LLLL O OOOO OU OUUUU CN CNNNN Email [email protected] days 730 serial 12]
tls::socket -keyfile $keyfile -certfile $certfile -server myserv 12300
puts "Now run keytest2.tcl"
vwait forever
|
Modified tests/keytest2.tcl
from [24f9bfe9d5]
to [9ae291a22a].
1 2 3 4 5 6 7 | 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 | > > > < | 1 2 3 4 5 6 7 8 9 10 | #! /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 |