diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-25 20:15:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-25 20:15:39 (GMT) |
| commit | f09480661f2d21a06fc4329c773d93124e674a7a (patch) | |
| tree | bd778dec3ffcdbc7c5359593779696235f682fed /tests | |
| parent | e8a864120b01c4d91ba8fb74ee616c4ae86b2827 (diff) | |
| parent | bf89b51bf772311354dc82c040d95b2718a96bc3 (diff) | |
| download | tk-f09480661f2d21a06fc4329c773d93124e674a7a.zip tk-f09480661f2d21a06fc4329c773d93124e674a7a.tar.gz tk-f09480661f2d21a06fc4329c773d93124e674a7a.tar.bz2 | |
Merge 8.7
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 0dadb4d..b74da9c 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -346,62 +346,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 |