summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--tests/canvText.test2
-rw-r--r--tests/entry.test2
-rw-r--r--tests/focus.test2
-rw-r--r--tests/font.test2
-rw-r--r--tests/fontchooser.test2
-rw-r--r--tests/pack.test2
-rw-r--r--tests/place.test2
-rw-r--r--tests/scrollbar.test2
-rw-r--r--tests/select.test2
-rw-r--r--tests/send.test2
-rw-r--r--tests/spinbox.test2
-rw-r--r--tests/textDisp.test2
-rw-r--r--tests/textTag.test2
-rw-r--r--tests/textWind.test2
-rw-r--r--tests/ttk/entry.test2
-rw-r--r--tests/unixEmbed.test2
-rw-r--r--tests/unixFont.test2
-rw-r--r--tests/unixWm.test2
-rw-r--r--tests/winfo.test2
-rw-r--r--tests/wm.test2
20 files changed, 20 insertions, 20 deletions
diff --git a/tests/canvText.test b/tests/canvText.test
index c0b9075..4898eb8 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# Canvas used in 1.* - 17.* tests
diff --git a/tests/entry.test b/tests/entry.test
index a557e91..ef70a9e 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
diff --git a/tests/focus.test b/tests/focus.test
index 3bdf778..5a13d91 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -11,7 +11,7 @@ eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
proc focusSetup {} {
diff --git a/tests/font.test b/tests/font.test
index 89780ba..cef8df2 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -14,7 +14,7 @@ tcltest::loadTestedCommands
# Some tests require support for 4-byte UTF-8 sequences
testConstraint fullutf [expr {[format %c 0x010000] != "\uFFFD"}]
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
set defaultfontlist [font names]
diff --git a/tests/fontchooser.test b/tests/fontchooser.test
index f34349a..471ed64 100644
--- a/tests/fontchooser.test
+++ b/tests/fontchooser.test
@@ -6,7 +6,7 @@ package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
# the following helper functions are related to the functions used
diff --git a/tests/pack.test b/tests/pack.test
index 1f40083..b86fa34 100644
--- a/tests/pack.test
+++ b/tests/pack.test
@@ -11,7 +11,7 @@ eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# Create some test windows.
diff --git a/tests/place.test b/tests/place.test
index 9408b72..5813ac5 100644
--- a/tests/place.test
+++ b/tests/place.test
@@ -13,7 +13,7 @@ tcltest::loadTestedCommands
# Used for constraining memory leak tests
testConstraint memory [llength [info commands memory]]
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# XXX - This test file is woefully incomplete. At present, only a
diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index 62d15c8..c48ff02 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -11,7 +11,7 @@ package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
proc scroll args {
diff --git a/tests/select.test b/tests/select.test
index 6bd2c9d..2177591 100644
--- a/tests/select.test
+++ b/tests/select.test
@@ -23,7 +23,7 @@ if {![catch {selection get -selection CLIPBOARD_MANAGER -type TARGETS}]} {
testConstraint cliboardManagerPresent 1
}
}
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
global longValue selValue selInfo
diff --git a/tests/send.test b/tests/send.test
index 2aaea3a..f440b80 100644
--- a/tests/send.test
+++ b/tests/send.test
@@ -15,7 +15,7 @@ eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint xhost [llength [auto_execok xhost]]
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
# Compute a script that will load Tk into a child interpreter.
diff --git a/tests/spinbox.test b/tests/spinbox.test
index 28d90d7..e4f1c5e 100644
--- a/tests/spinbox.test
+++ b/tests/spinbox.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
# For xscrollcommand
diff --git a/tests/textDisp.test b/tests/textDisp.test
index f64dd88..3022a54 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -11,7 +11,7 @@ eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# Platform specific procedure for updating the text widget.
diff --git a/tests/textTag.test b/tests/textTag.test
index 038150f..298e594 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
destroy .t
diff --git a/tests/textWind.test b/tests/textWind.test
index 40bc8dd..a11a418 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
tcltest::configure {*}$argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
deleteWindows
diff --git a/tests/ttk/entry.test b/tests/ttk/entry.test
index a30cf6a..293bfe1 100644
--- a/tests/ttk/entry.test
+++ b/tests/ttk/entry.test
@@ -7,7 +7,7 @@ package require tcltest 2.2
namespace import -force tcltest::*
loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
variable scrollInfo
proc scroll args {
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test
index f859150..bb7edc5 100644
--- a/tests/unixEmbed.test
+++ b/tests/unixEmbed.test
@@ -11,7 +11,7 @@ eval tcltest::configure $argv
tcltest::loadTestedCommands
namespace import -force tcltest::test
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
namespace eval ::_test_tmp {}
diff --git a/tests/unixFont.test b/tests/unixFont.test
index ee9eb02..ff16750 100644
--- a/tests/unixFont.test
+++ b/tests/unixFont.test
@@ -16,7 +16,7 @@ package require tcltest 2.2
eval tcltest::configure $argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnUbuntuNoXft [expr {[testConstraint failsOnUbuntu] || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
diff --git a/tests/unixWm.test b/tests/unixWm.test
index 47b65fd..209165f 100644
--- a/tests/unixWm.test
+++ b/tests/unixWm.test
@@ -13,7 +13,7 @@ tcltest::loadTestedCommands
namespace import -force ::tk::test:loadTkCommand
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
proc sleep ms {
diff --git a/tests/winfo.test b/tests/winfo.test
index b50c70a..591eb29 100644
--- a/tests/winfo.test
+++ b/tests/winfo.test
@@ -11,7 +11,7 @@ namespace import ::tcltest::*
tcltest::configure {*}$argv
tcltest::loadTestedCommands
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# eatColors --
diff --git a/tests/wm.test b/tests/wm.test
index 08c7943..a9e0f10 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -27,7 +27,7 @@ proc stdWindow {} {
update
}
-testConstraint failsOnUbuntu [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match linux $::env(TRAVIS_OS_NAME)]}]
+testConstraint failsOnUbuntu [expr {![info exists ::env(CI)] || ![string match Linux $::tcl_platform(os)]}]
testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowingsystem] ne "x11" }]
# [raise] and [lower] may return before the window manager has completed the
generated by cgit v0.12 at 2024-11-10 07:14:40 (GMT)