From 3ae3e292d3d381885989cdaa6d121a7ae8d658a9 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Thu, 5 Jan 2017 23:19:41 +0000
Subject: Fix [c12af74765]: OS X - text-21.1 fails

---
 tests/text.test | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

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"
-- 
cgit v0.12