summaryrefslogtreecommitdiffstats
path: root/tests/unixSelect.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-07-07 21:28:29 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-07-07 21:28:29 (GMT)
commita8f1f6d99021f55663eeb09a142a00e287d32c42 (patch)
tree3af47856f2416f800f9047a569812ccdd27a80ba /tests/unixSelect.test
parent1208f65b66e48950225384bc941801bc27c9f33a (diff)
downloadtk-a8f1f6d99021f55663eeb09a142a00e287d32c42.zip
tk-a8f1f6d99021f55663eeb09a142a00e287d32c42.tar.gz
tk-a8f1f6d99021f55663eeb09a142a00e287d32c42.tar.bz2
Also prevent unixSelect-1.* tests from failing on macOS. These tests check X selection mechanisms that are only present on x11, not on unix aqua. Therefore don't run them on aqua.
Diffstat (limited to 'tests/unixSelect.test')
-rw-r--r--tests/unixSelect.test36
1 files changed, 18 insertions, 18 deletions
diff --git a/tests/unixSelect.test b/tests/unixSelect.test
index 53ae006..a702587 100644
--- a/tests/unixSelect.test
+++ b/tests/unixSelect.test
@@ -108,7 +108,7 @@ foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} {
# ----------------------------------------------------------------------
test unixSelect-1.1 {TkSelGetSelection procedure: simple i18n text} -constraints {
- unix
+ x11
} -setup {
destroy .e
setupbg
@@ -124,7 +124,7 @@ test unixSelect-1.1 {TkSelGetSelection procedure: simple i18n text} -constraints
} -result {4}
test unixSelect-1.2 {TkSelGetSelection procedure: simple i18n text, iso8859-1} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -140,7 +140,7 @@ test unixSelect-1.2 {TkSelGetSelection procedure: simple i18n text, iso8859-1} -
} -result \u00fc?
test unixSelect-1.3 {TkSelGetSelection procedure: simple i18n text, iso2022} -constraints {
- unix
+ x11
} -setup {
setupbg
setup
@@ -160,7 +160,7 @@ test unixSelect-1.3 {TkSelGetSelection procedure: simple i18n text, iso2022} -co
} -result {1 2 {COMPOUND_TEXT 0 4000}}
test unixSelect-1.4 {TkSelGetSelection procedure: INCR i18n text, iso2022} -constraints {
- unix
+ x11
} -setup {
setupbg
setup
@@ -186,7 +186,7 @@ test unixSelect-1.4 {TkSelGetSelection procedure: INCR i18n text, iso2022} -cons
} -result {1 8000 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3999 COMPOUND_TEXT 7998 4000 COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3998 COMPOUND_TEXT 7997 4000}}
test unixSelect-1.5 {TkSelGetSelection procedure: simple i18n text, iso2022} -constraints {
- unix
+ x11
} -setup {
setupbg
setup
@@ -206,7 +206,7 @@ test unixSelect-1.5 {TkSelGetSelection procedure: simple i18n text, iso2022} -co
} -result {1 2 {COMPOUND_TEXT 0 4000}}
test unixSelect-1.6 {TkSelGetSelection procedure: INCR i18n text} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -219,7 +219,7 @@ test unixSelect-1.6 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result [expr {4 + [string length $longValue]}]
test unixSelect-1.7 {TkSelGetSelection procedure: INCR i18n text} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -235,7 +235,7 @@ test unixSelect-1.7 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result [string repeat x 3999]\u00fc
test unixSelect-1.8 {TkSelGetSelection procedure: INCR i18n text} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -251,7 +251,7 @@ test unixSelect-1.8 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result \u00fc[string repeat x 3999]
test unixSelect-1.9 {TkSelGetSelection procedure: INCR i18n text} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -270,7 +270,7 @@ test unixSelect-1.9 {TkSelGetSelection procedure: INCR i18n text} -constraints {
# from rearing its ugly head again.
test unixSelect-1.10 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -286,7 +286,7 @@ test unixSelect-1.10 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat x 3999]\u00fc
test unixSelect-1.11 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -302,7 +302,7 @@ test unixSelect-1.11 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result \u00fc[string repeat x 3999]
test unixSelect-1.12 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -318,7 +318,7 @@ test unixSelect-1.12 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat x 3999]\u00fc[string repeat x 4000]
test unixSelect-1.13 {TkSelGetSelection procedure: simple i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
destroy .e
setupbg
@@ -334,7 +334,7 @@ test unixSelect-1.13 {TkSelGetSelection procedure: simple i18n text, utf-8} -con
} -result {5}
test unixSelect-1.14 {TkSelGetSelection procedure: simple i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -350,7 +350,7 @@ test unixSelect-1.14 {TkSelGetSelection procedure: simple i18n text, utf-8} -con
} -result \u00fc\u0444
test unixSelect-1.15 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -366,7 +366,7 @@ test unixSelect-1.15 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.16 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -382,7 +382,7 @@ test unixSelect-1.16 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result i[string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.17 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {
@@ -400,7 +400,7 @@ test unixSelect-1.17 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.18 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
- unix
+ x11
} -setup {
setupbg
} -body {