Jim Tcl
Check-in [3d4d76de61]
Not logged in

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

Overview
Comment: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>

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3d4d76de610aafdac18e1a053be502f23d3da8d5
User & Date: steveb@workware.net.au 2017-11-25 00:33:45
Context
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

2017-11-24
22:59
build: During install, make sure pkgconfig dir exists

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

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/event.test.

11
12
13
14
15
16
17
18













19
20
21
22
23
24
25
26

source [file dirname [info script]]/testing.tcl

needs cmd after eventloop
testConstraint socket [expr {[info commands socket] ne ""}]
testConstraint exec [expr {[info commands exec] ne ""}]
testConstraint signal [expr {[info commands signal] ne ""}]
catch {[socket -ipv6 stream ::1:5000]} ipv6res













testConstraint ipv6 [expr {$ipv6res ne "ipv6 not supported"}]

test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim {
    catch {rename bgerror {}}
    proc bgerror msg {
	lappend ::x $msg
    }
    after idle {error "a simple error"}







|
>
>
>
>
>
>
>
>
>
>
>
>
>
|







11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

source [file dirname [info script]]/testing.tcl

needs cmd after eventloop
testConstraint socket [expr {[info commands socket] ne ""}]
testConstraint exec [expr {[info commands exec] ne ""}]
testConstraint signal [expr {[info commands signal] ne ""}]
catch {[socket -ipv6 stream ::1:5000]} res
set ipv6 1
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 {}}
    proc bgerror msg {
	lappend ::x $msg
    }
    after idle {error "a simple error"}