diff options
author | fvogel <fvogelnew1@free.fr> | 2018-07-07 21:28:29 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-07-07 21:28:29 (GMT) |
commit | a8f1f6d99021f55663eeb09a142a00e287d32c42 (patch) | |
tree | 3af47856f2416f800f9047a569812ccdd27a80ba /tests/unixSelect.test | |
parent | 1208f65b66e48950225384bc941801bc27c9f33a (diff) | |
download | tk-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.test | 36 |
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 { |