Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | replace socket-14.3 with a test that is more useful and less likely to randomly fail depending on the local network environment. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2eb58b2d6766bbddb889c6ad584fe7bd |
| User & Date: | max 2011-06-28 14:42:29 |
| Original Comment: | replace socket-14.2 with a test that is more useful and less likely to randomly fail depending on the local network environment. |
Context
|
2011-06-28
| ||
| 15:43 | Rework constraint detection and add constraints that cater for the fact, that both address families ... check-in: 86730a63b2 user: max tags: trunk | |
| 14:42 | replace socket-14.3 with a test that is more useful and less likely to randomly fail depending on th... check-in: 2eb58b2d67 user: max tags: trunk | |
| 11:32 |
| |
Changes
Changes to tests/socket.test.
| ︙ | ︙ | |||
1714 1715 1716 1717 1718 1719 1720 |
if {$remoteProcChan ne ""} {
catch {sendCommand exit}
}
catch {close $commandSocket}
catch {close $remoteProcChan}
}
unset ::tcl::unsupported::socketAF
| | | 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 |
if {$remoteProcChan ne ""} {
catch {sendCommand exit}
}
catch {close $commandSocket}
catch {close $remoteProcChan}
}
unset ::tcl::unsupported::socketAF
test socket-14.0 {[socket -async] when server only listens on IPv4} \
-constraints [list socket supported_any] \
-setup {
proc accept {s a p} {
global x
puts $s bye
close $s
set x ok
|
| ︙ | ︙ | |||
1780 1781 1782 1783 1784 1785 1786 |
}
set x
} -cleanup {
after cancel $after
close $client
unset x
} -result "connection refused"
| | > > > > > > > > > | < | | < < < < > | | 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 |
}
set x
} -cleanup {
after cancel $after
close $client
unset x
} -result "connection refused"
test socket-14.3 {[socket -async] when server only listens on IPv6} \
-constraints [list socket supported_any] \
-setup {
proc accept {s a p} {
global x
puts $s bye
close $s
set x ok
}
set server [socket -server accept -myaddr ::1 0]
set port [lindex [fconfigure $server -sockname] 2]
} -body {
set client [socket -async localhost $port]
set after [after 1000 {set x [fconfigure $client -error]}]
vwait x
set x
} -cleanup {
after cancel $after
close $server
close $client
unset x
} -result ok
test socket-14.4 {[socket -async] and both, readdable and writable fileevents} \
-constraints [list socket supported_any] \
-setup {
proc accept {s a p} {
puts $s bye
close $s
}
|
| ︙ | ︙ | |||
1828 1829 1830 1831 1832 1833 1834 |
close $client
close $server
} -result {{} bye}
test socket-14.5 {[socket -async] which fails before any connect() can be made} \
-constraints [list socket supported_any] \
-body {
# addresses from rfc5737
| | | 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 |
close $client
close $server
} -result {{} bye}
test socket-14.5 {[socket -async] which fails before any connect() can be made} \
-constraints [list socket supported_any] \
-body {
# addresses from rfc5737
socket -async -myaddr 192.0.2.42 127.0.0.1 [randport]
} \
-returnCodes 1 \
-result {couldn't open socket: cannot assign requested address}
::tcltest::cleanupTests
flush stdout
return
# Local Variables:
# mode: tcl
# fill-column: 78
# End:
|