From 3dbd737f1811d01dcff8791b15a8cf9dd1bc8735 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Tue, 7 Jun 2022 20:41:47 +0000
Subject: Constraint 10 tests with 'notAqua' in textDisp.test. Bug [aad0231f07]
 prevents these tests from passing, the display is correct but what is logged
 is wrong.

---
 tests/textDisp.test | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/tests/textDisp.test b/tests/textDisp.test
index f00a707..3c1face 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -910,7 +910,7 @@ test textDisp-6.4 {scrolling in DisplayText, scrolls interfere} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{2.0 2.20 2.40 2.60 4.0 4.20} {2.0 2.20 2.40 2.60 4.0 4.20 6.0}}
-test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} {
+test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} {notAqua} {
     .t configure -wrap char
     frame .f2 -bg red
     place .f2 -in .t -relx 0.5 -rely 0.5 -relwidth 0.5 -relheight 0.5
@@ -925,7 +925,7 @@ test textDisp-6.5 {scrolling in DisplayText, scroll source obscured} {
     destroy .f2
     list $tk_textRelayout $tk_textRedraw
 } {{1.0 9.0 10.0} {1.0 4.0 5.0 9.0 10.0}}
-test textDisp-6.6 {scrolling in DisplayText, Expose events after scroll} {
+test textDisp-6.6 {scrolling in DisplayText, Expose events after scroll} {notAqua} {
     # this test depends on all of the expose events being handled at once
     .t configure -wrap char
     frame .f2 -bg #ff0000
@@ -1005,7 +1005,7 @@ test textDisp-6.10 {DisplayText, redisplay embedded windows after scroll.} {aqua
 foreach i {2 3 4 5 6 7 8 9 10 11 12 13 14 15} {
     .t insert end "\nLine $i"
 }
-test textDisp-7.1 {TkTextRedrawRegion} {
+test textDisp-7.1 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0.2 -relwidth 0.6 -rely 0.22 -relheight 0.55
     updateText
@@ -1013,7 +1013,7 @@ test textDisp-7.1 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {1.40 2.0 3.0 4.0 5.0 6.0}}
-test textDisp-7.2 {TkTextRedrawRegion} {
+test textDisp-7.2 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0 -relwidth 0.5 -rely 0 -relheight 0.5
     updateText
@@ -1021,7 +1021,7 @@ test textDisp-7.2 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {1.0 1.20 1.40 2.0 3.0}}
-test textDisp-7.3 {TkTextRedrawRegion} {
+test textDisp-7.3 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0.5 -relwidth 0.5 -rely 0.5 -relheight 0.5
     updateText
@@ -1029,7 +1029,7 @@ test textDisp-7.3 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {4.0 5.0 6.0 7.0 8.0}}
-test textDisp-7.4 {TkTextRedrawRegion} {
+test textDisp-7.4 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 0 -relheight 0.2 \
 	    -bordermode ignore
@@ -1038,7 +1038,7 @@ test textDisp-7.4 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {borders 1.0 1.20}}
-test textDisp-7.5 {TkTextRedrawRegion} {
+test textDisp-7.5 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0.4 -relwidth 0.2 -rely 1.0 -relheight 0.2 \
 	    -anchor s -bordermode ignore
@@ -1047,7 +1047,7 @@ test textDisp-7.5 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {borders 7.0 8.0}}
-test textDisp-7.6 {TkTextRedrawRegion} {
+test textDisp-7.6 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \
 	    -anchor w -bordermode ignore
@@ -1056,7 +1056,7 @@ test textDisp-7.6 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {borders 3.0 4.0 5.0}}
-test textDisp-7.7 {TkTextRedrawRegion} {
+test textDisp-7.7 {TkTextRedrawRegion} {notAqua} {
     frame .f2 -bg #ff0000
     place .f2 -in .t -relx 1.0 -relwidth 0.2 -rely 0.55 -relheight 0.2 \
 	    -anchor e -bordermode ignore
@@ -1065,7 +1065,7 @@ test textDisp-7.7 {TkTextRedrawRegion} {
     updateText
     list $tk_textRelayout $tk_textRedraw
 } {{} {borders 3.0 4.0 5.0}}
-test textDisp-7.8 {TkTextRedrawRegion} {
+test textDisp-7.8 {TkTextRedrawRegion} {notAqua} {
     .t delete 1.0 end
     .t insert 1.0 "Line 1\nLine 2\nLine 3\nLine 4\nLine 5\nLine 6\n"
     frame .f2 -bg #ff0000
-- 
cgit v0.12