diff options
| -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 |