diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-14 15:45:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-14 15:45:40 (GMT) |
commit | 8a728ef419e042429b94d2fb3293abe307cb0809 (patch) | |
tree | 0cc26907068c12f75c3c1f78d20dd9c1cd05bbcf /tests/panedwindow.test | |
parent | d761ee11ddfbf78f99ff1cf29011f5c899983250 (diff) | |
parent | 5357570e1f8319ecea3ce3c930913200ebc485dd (diff) | |
download | tk-8a728ef419e042429b94d2fb3293abe307cb0809.zip tk-8a728ef419e042429b94d2fb3293abe307cb0809.tar.gz tk-8a728ef419e042429b94d2fb3293abe307cb0809.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests/panedwindow.test')
-rw-r--r-- | tests/panedwindow.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/panedwindow.test b/tests/panedwindow.test index f8fb3ae..4a1f161 100644 --- a/tests/panedwindow.test +++ b/tests/panedwindow.test @@ -11,6 +11,8 @@ eval tcltest::configure $argv tcltest::loadTestedCommands namespace import -force tcltest::test +testConstraint needsTcl87 [package vsatisfies [package provide Tcl] 8.7-] + deleteWindows # Panedwindow for tests 1.* panedwindow .p @@ -122,9 +124,9 @@ test panedwindow-1.23 {configuration options: -proxyrelief (good)} -body { } -cleanup { .p configure -proxyrelief [lindex [.p configure -proxyrelief] 3] } -result {groove groove} -test panedwindow-1.24 {configuration options: -proxyrelief (bad)} -body { +test panedwindow-1.24 {configuration options: -proxyrelief (bad)} -constraints needsTcl87 -body { .p configure -proxyrelief 1.5 -} -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken} +} -returnCodes error -result {bad relief "1.5": must be flat, groove, raised, ridge, solid, sunken, or ""} test panedwindow-1.25 {configuration options: -relief (good)} -body { .p configure -relief groove list [lindex [.p configure -relief] 4] [.p cget -relief] |