summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-01-05 23:19:41 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-01-05 23:19:41 (GMT)
commit3ae3e292d3d381885989cdaa6d121a7ae8d658a9 (patch)
tree0bf200c349ba3614f5f0084b52d7d042bda6392c
parent90e21ab406bd1e438de68fcc7790a3534c37ea60 (diff)
downloadtk-3ae3e292d3d381885989cdaa6d121a7ae8d658a9.zip
tk-3ae3e292d3d381885989cdaa6d121a7ae8d658a9.tar.gz
tk-3ae3e292d3d381885989cdaa6d121a7ae8d658a9.tar.bz2
Fix [c12af74765]: OS X - text-21.1 fails
-rw-r--r--tests/text.test17
1 files changed, 16 insertions, 1 deletions
diff --git a/tests/text.test b/tests/text.test
index 8ba177f..9d9b836 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -3925,7 +3925,7 @@ test text-20.5 {TextFetchSelection procedure, long selections} -setup {
} -result {1}
-test text-21.1 {TkTextLostSelection procedure} -constraints unix -setup {
+test text-21.1 {TkTextLostSelection procedure} -constraints {unix notAqua} -setup {
text .t
.t insert 1.0 "Line 1"
entry .t.e
@@ -3940,6 +3940,21 @@ test text-21.1 {TkTextLostSelection procedure} -constraints unix -setup {
} -cleanup {
destroy .t .t2
} -result {}
+test text-21.1a {TkTextLostSelection procedure} -constraints {unix aqua} -setup {
+ text .t
+ .t insert 1.0 "Line 1"
+ entry .t.e
+ .t.e insert end "abcdefg"
+ text .t2
+ .t2 insert 1.0 "abc\ndef\nghijk\n1234"
+} -body {
+ .t2 tag add sel 1.2 3.3
+ .t.e select from 0
+ .t.e select to 1
+ .t2 tag ranges sel
+} -cleanup {
+ destroy .t .t2
+} -result {1.2 3.3}
test text-21.2 {TkTextLostSelection procedure} -constraints win -setup {
text .t
.t insert 1.0 "Line 1"