diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-07-20 20:35:16 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-07-20 20:35:16 (GMT) |
| commit | 720cd761c3ba466b16c4779805976c1472b4fc29 (patch) | |
| tree | b452f8edceb977470782b3aaae7dc3855d13de3f /tests | |
| parent | 5aef94316d62ff1fb6c7875662c30188afd41052 (diff) | |
| parent | 2dfc951c8449a0bc45305ea4a62e2f995c03bc8a (diff) | |
| download | tk-720cd761c3ba466b16c4779805976c1472b4fc29.zip tk-720cd761c3ba466b16c4779805976c1472b4fc29.tar.gz tk-720cd761c3ba466b16c4779805976c1472b4fc29.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textWind.test | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index ef33b30..b659520 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -334,62 +334,60 @@ test textWind-3.1 {EmbWinConfigure procedure} -setup { destroy .f } -returnCodes error -result {unknown option "-foo"} -# The next 4 tests are constrained by aquaKnownBug until the fix for ticket -# [61e0bb8aab] gets merged -test textWind-3.2 {EmbWinConfigure procedure} -constraints {aquaKnownBug} -setup { +test textWind-3.2 {EmbWinConfigure procedure} -setup { destroy .f } -body { .t insert 1.0 "Some sample text" frame .f -width 10 -height 20 -bg $color .t window create 1.3 -window .f - waitForMap .f + updateWidgets .t window configure 1.3 -window {} - waitForUnmap .f + updateWidgets .t index .f } -cleanup { destroy .f } -returnCodes error -result {bad text index ".f"} -test textWind-3.3 {EmbWinConfigure procedure} -constraints {aquaKnownBug} -setup { +test textWind-3.3 {EmbWinConfigure procedure} -setup { destroy .f } -body { .t insert 1.0 "Some sample text" frame .f -width 10 -height 20 -bg $color .t window create 1.3 -window .f - waitForMap .f + updateWidgets set res [winfo ismapped .f] .t window configure 1.3 -window {} - waitForUnmap .f + updateWidgets lappend res [winfo ismapped .f] [.t bbox 1.4] } -cleanup { destroy .f } -result [list 1 0 \ [list [expr {$padx+3*$fixedWidth}] $pady $fixedWidth $fixedHeight]] -test textWind-3.4 {EmbWinConfigure procedure} -constraints {aquaKnownBug} -setup { +test textWind-3.4 {EmbWinConfigure procedure} -setup { destroy .t.f } -body { .t insert 1.0 "Some sample text" frame .t.f -width 10 -height 20 -bg $color .t window create 1.3 -window .t.f - waitForMap .t.f + updateWidgets .t window configure 1.3 -window {} - waitForUnmap .t.f + updateWidgets .t index .t.f } -cleanup { destroy .t.f } -returnCodes error -result {bad text index ".t.f"} -test textWind-3.5 {EmbWinConfigure procedure} -constraints {aquaKnownBug} -setup { +test textWind-3.5 {EmbWinConfigure procedure} -setup { destroy .t.f } -body { .t insert 1.0 "Some sample text" frame .t.f -width 10 -height 20 -bg $color .t window create 1.3 -window .t.f - waitForMap .t.f + updateWidgets set res [winfo ismapped .t.f] .t window configure 1.3 -window {} - waitForUnmap .t.f + updateWidgets lappend res [winfo ismapped .t.f] [.t bbox 1.4] } -cleanup { destroy .t.f |