diff options
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/tests/event.test b/tests/event.test index b95f76e..453b713 100644 --- a/tests/event.test +++ b/tests/event.test @@ -12,22 +12,10 @@ 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]} { - set ipv6 0 - } -} -testConstraint ipv6 $ipv6 +constraint cmd socket +constraint cmd exec +constraint cmd signal +constraint eval ipv6 {[socket -ipv6 stream.server ::1:5000] close} test event-5.1 {Tcl_BackgroundError, HandleBgErrors procedures} jim { catch {rename bgerror {}} |