diff options
| author | fvogel <fvogel@noemail.net> | 2016-01-11 18:00:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-01-11 18:00:11 (GMT) |
| commit | a355c5b88e37b160dc2011275f5c5cf2f0b04192 (patch) | |
| tree | 502dff781e979e6f931e856bcbc506a3a53250ed /tests/listbox.test | |
| parent | 55f26889849c8d5d21abc2cb8e572492b8344b17 (diff) | |
| download | tk-a355c5b88e37b160dc2011275f5c5cf2f0b04192.zip tk-a355c5b88e37b160dc2011275f5c5cf2f0b04192.tar.gz tk-a355c5b88e37b160dc2011275f5c5cf2f0b04192.tar.bz2 | |
Added some tests
FossilOrigin-Name: 6adb42a00d988d7f4a2e551f3daaeace9741643a
Diffstat (limited to 'tests/listbox.test')
| -rw-r--r-- | tests/listbox.test | 15 |
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] |