diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-09-23 12:41:36 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-09-23 12:41:36 (GMT) |
| commit | a7e83a90331863c7b8c80a1da12d01bd5950286f (patch) | |
| tree | 0db257dc5896496f47bd2519524528503a28d54f /tests/menu.test | |
| parent | c0f13ed1e0fdfd76d03b84dffd9242d22506a69b (diff) | |
| download | tk-a7e83a90331863c7b8c80a1da12d01bd5950286f.zip tk-a7e83a90331863c7b8c80a1da12d01bd5950286f.tar.gz tk-a7e83a90331863c7b8c80a1da12d01bd5950286f.tar.bz2 | |
Add tests checking the new option -activerelief
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/menu.test b/tests/menu.test index 1af36f1..7101e21 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -175,6 +175,14 @@ test menu-2.6 {configuration options -activeforeground non-existent} -body { .m1 configure -activeforeground non-existent } -returnCodes error -result {unknown color name "non-existent"} +test menu-2.6a {configuration options -activerelief sunken} -body { + .m1 configure -activerelief sunken + .m1 cget -activerelief +} -result {sunken} +test menu-2.6b {configuration options -activerelief badValue} -body { + .m1 configure -activerelief badValue +} -returnCodes error -result {bad relief "badValue": must be flat, groove, raised, ridge, solid, or sunken} + test menu-2.7 {configuration options -background #ff0000} -body { .m1 configure -background #ff0000 .m1 cget -background @@ -1359,7 +1367,7 @@ test menu-3.18 {MenuWidgetCmd procedure, "configure" option} -setup { llength [.m1 configure] } -cleanup { destroy .m1 -} -result {20} +} -result {21} test menu-3.19 {MenuWidgetCmd procedure, "configure" option} -setup { destroy .m1 } -body { |