Tcl Source Code

Check-in [7194b3fcef]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Merge 8.5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 7194b3fceff1d64b3586ac174a0c49fca1202c18c7475de48dcdbbdfcf6d4429
User & Date: jan.nijtmans 2019-02-24 17:15:51
Context
2019-02-25
21:12
Merge 8.5 check-in: 1c886530ed user: jan.nijtmans tags: core-8-6-branch
2019-02-24
17:19
Merge 8.6 check-in: 784f5feda2 user: jan.nijtmans tags: core-8-branch
17:15
Merge 8.5 check-in: 7194b3fcef user: jan.nijtmans tags: core-8-6-branch
17:05
No longer run socket test-cases on travis with OSX: There are too many random failures/hangups. check-in: d5a91ad9d9 user: jan.nijtmans tags: core-8-5-branch
2019-02-19
20:12
Fix some comments: "upper" -> "high" (when talking about surrogates) check-in: 1d9b7f26b0 user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/socket.test.

58
59
60
61
62
63
64




65
66
67
68
69
70
71
# server will be performed; otherwise, it will attempt to start the remote
# server (via exec) on platforms that support this, on the local host,
# listening at port 2048. If all fails, a message is printed and the tests
# using the remote server are not performed.

package require tcltest 2
namespace import -force ::tcltest::*





# Some tests require the Thread package or exec command
testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint exec [llength [info commands exec]]

# Produce a random port number in the Dynamic/Private range
# from 49152 through 65535.






>
>
>
>







58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
# server will be performed; otherwise, it will attempt to start the remote
# server (via exec) on platforms that support this, on the local host,
# listening at port 2048. If all fails, a message is printed and the tests
# using the remote server are not performed.

package require tcltest 2
namespace import -force ::tcltest::*

if {[expr {[info exists ::env(TRAVIS_OSX_IMAGE)] && [string match xcode* $::env(TRAVIS_OSX_IMAGE)]}]} {
    return
}

# Some tests require the Thread package or exec command
testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}]
testConstraint exec [llength [info commands exec]]

# Produce a random port number in the Dynamic/Private range
# from 49152 through 65535.