Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fix a timing issue in socket-12.3 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
188a7958738dfed3ed838d5073fcd8bd |
| User & Date: | max 2011-05-27 17:50:38 |
Context
|
2011-05-31
| ||
| 20:36 | Fix bug 3293874 check-in: 09c2da3a2a user: dgp tags: trunk | |
| 19:58 | Rewind from a refactoring that veered into the weeds. Closed-Leaf check-in: 1d247886db user: dgp tags: bug-3293874 | |
|
2011-05-27
| ||
| 18:36 | Fix [socket -async] for DNS names with more than one address check-in: a1abfd5e94 user: max tags: rmax-ipv6-branch | |
| 17:50 | fix a timing issue in socket-12.3 check-in: 188a795873 user: max tags: trunk | |
|
2011-05-25
| ||
| 14:37 | committed missing tzdata/Africa/Cairo from venkat's last commit check-in: df2425d65c user: kbk tags: trunk | |
Changes
Changes to tests/socket.test.
| ︙ | ︙ | |||
1606 1607 1608 1609 1610 1611 1612 |
gets $p listen
set f [socket $localhost $listen]
fconfigure $f -buffering full -blocking 0
fileevent $f readable [list getdata $f]
# If the socket is still open after 5 seconds, the script1 process must
# have inherited the accepted socket.
set failed 0
| | | 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 |
gets $p listen
set f [socket $localhost $listen]
fconfigure $f -buffering full -blocking 0
fileevent $f readable [list getdata $f]
# If the socket is still open after 5 seconds, the script1 process must
# have inherited the accepted socket.
set failed 0
set after [after 5000 [list set failed 1]]
proc getdata { file } {
# Read handler on the client socket.
global x
global failed
set status [catch {read $file} data]
if {$status != 0} {
set x {read failed, error was $data}
|
| ︙ | ︙ | |||
1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 |
catch { close $file }
}
return
}
vwait x
return $x
} -cleanup {
catch {close $p}
} -result {accepted socket was not inherited}
test socket_$af-13.1 {Testing use of shared socket between two threads} -setup {
threadReap
set path(script) [makeFile [string map [list @localhost@ $localhost] {
set f [socket -server accept -myaddr @localhost@ 0]
| > | 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 |
catch { close $file }
}
return
}
vwait x
return $x
} -cleanup {
after cancel $after
catch {close $p}
} -result {accepted socket was not inherited}
test socket_$af-13.1 {Testing use of shared socket between two threads} -setup {
threadReap
set path(script) [makeFile [string map [list @localhost@ $localhost] {
set f [socket -server accept -myaddr @localhost@ 0]
|
| ︙ | ︙ |