Jim Tcl
Check-in [f259d28a19]
Not logged in

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

Overview
Comment:tests: remove debugging from event.test

Signed-off-by: Steve Bennett <steveb@workware.net.au>

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:f259d28a1917493bac07218a98bec7dfd4d3b44d
User & Date: steveb@workware.net.au 2017-11-25 06:52:36
Context
2017-11-26
07:43
Update autosetup to v0.6.7-17-gb5a0e85

Mostly for --{enable,disable}-silent-rules

Use new opt-str where appropriate

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: cf03b3c80d user: steveb@workware.net.au tags: trunk

2017-11-25
06:52
tests: remove debugging from event.test

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: f259d28a19 user: steveb@workware.net.au tags: trunk

00:33
tests: If ipv6 sockets can't be bound, don't test

This is a workaround for IPv6 tests failing on Travis

Signed-off-by: Steve Bennett <steveb@workware.net.au> check-in: 3d4d76de61 user: steveb@workware.net.au tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/event.test.

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
if {[string match "*not supported" $res]} {
    set ipv6 0
} else {
    # Also, if we can't bind an IPv6 socket, don't run IPv6 tests
    if {[catch {
        [socket -ipv6 stream.server ::1:5000] close
    } msg opts]} {
        puts msg=$msg
        parray opts
        set ipv6 0
    }
}
testConstraint ipv6 $ipv6

test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim {
    catch {rename bgerror {}}







<
<







20
21
22
23
24
25
26


27
28
29
30
31
32
33
if {[string match "*not supported" $res]} {
    set ipv6 0
} else {
    # Also, if we can't bind an IPv6 socket, don't run IPv6 tests
    if {[catch {
        [socket -ipv6 stream.server ::1:5000] close
    } msg opts]} {


        set ipv6 0
    }
}
testConstraint ipv6 $ipv6

test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim {
    catch {rename bgerror {}}