Check-in [dc7bbc6de6]
Overview
Comment:Enforce socket in blocking mode during test where "gets" is expected to wait for a reply
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tls-1-7
Files: files | file ages | folders
SHA1: dc7bbc6de63ee9180b071446afdaefb8aec332bf
User & Date: rkeene on 2016-12-05 16:58:47
Other Links: branch diff | manifest | tags
Context
2016-12-05
17:04
Disable protocols if they are not compiled in check-in: 8e510a3598 user: rkeene tags: tls-1-7
16:58
Enforce socket in blocking mode during test where "gets" is expected to wait for a reply check-in: dc7bbc6de6 user: rkeene tags: tls-1-7
16:57
Updated to support configure options to disable/enable specific protocols check-in: c75c1f1d50 user: rkeene tags: tls-1-7
Changes
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
    after 500
    fconfigure $sock -blocking 0
    set result a:[gets $sock]
    lappend result b:[gets $sock]
    fconfigure $sock -blocking 1
    puts $s2 two
    flush $s2
    fconfigure $sock -blocking 0
    lappend result c:[gets $sock]
    fconfigure $sock -blocking 1
    close $s2
    close $s
    close $sock
    set result
} {a:one b: c:two}







|







671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
    after 500
    fconfigure $sock -blocking 0
    set result a:[gets $sock]
    lappend result b:[gets $sock]
    fconfigure $sock -blocking 1
    puts $s2 two
    flush $s2
    fconfigure $sock -blocking 1
    lappend result c:[gets $sock]
    fconfigure $sock -blocking 1
    close $s2
    close $s
    close $sock
    set result
} {a:one b: c:two}