summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-01-11 18:00:11 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-01-11 18:00:11 (GMT)
commit2ab896442a6992390a79803686b3aa3abe266cc6 (patch)
tree502dff781e979e6f931e856bcbc506a3a53250ed
parent5de259d30a538e9ede43cea981bdf0002bb0601d (diff)
downloadtk-2ab896442a6992390a79803686b3aa3abe266cc6.zip
tk-2ab896442a6992390a79803686b3aa3abe266cc6.tar.gz
tk-2ab896442a6992390a79803686b3aa3abe266cc6.tar.bz2
Added some tests
-rw-r--r--tests/listbox.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/listbox.test b/tests/listbox.test
index 0519e93..effaad8 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -203,6 +203,21 @@ test listbox-1.31 {configuration options} -body {
} -cleanup {
.l configure -highlightthickness [lindex [.l configure -highlightthickness] 3]
} -result {0 0}
+test listbox-1.32.1 {configuration options} -setup {
+ set res {}
+} -body {
+ .l configure -justify left
+ set res [list [lindex [.l configure -justify] 4] [.l cget -justify]]
+ .l configure -justify center
+ lappend res [lindex [.l configure -justify] 4] [.l cget -justify]
+ .l configure -justify right
+ lappend res [lindex [.l configure -justify] 4] [.l cget -justify]
+} -cleanup {
+ .l configure -justify [lindex [.l configure -justify] 3]
+} -result {left left center center right right}
+test listbox-1.32.2 {configuration options} -body {
+ .l configure -justify bogus
+} -returnCodes error -result {bad justification "bogus": must be left, right, or center}
test listbox-1.33 {configuration options} -body {
.l configure -relief groove
list [lindex [.l configure -relief] 4] [.l cget -relief]