summaryrefslogtreecommitdiffstats
path: root/tests/listbox.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/listbox.test')
-rw-r--r--tests/listbox.test22
1 files changed, 0 insertions, 22 deletions
diff --git a/tests/listbox.test b/tests/listbox.test
index 40041de..76a4349 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -509,28 +509,6 @@ test listbox-3.18b {ListboxWidgetCmd procedure, "bbox" option, justified, non-de
destroy .top.l .top
unset -nocomplain lres res
} -result {1}
-test listbox-3.18c {ListboxWidgetCmd procedure, "bbox" option, justified, with x scrolling} -setup {
- destroy .top.l .top.hs .top
-
-} -body {
-package req Tk
-destroy .top.l .top.hs .top
- toplevel .top
- listbox .top.l -justify right -borderwidth 7 -highlightthickness 10 -selectborderwidth 20
- scrollbar .top.hs -command ".top.l xview" -orient horizontal
- .top.l configure -xscrollcommand ".top.hs set"
- set huge [concat "START -" [string repeat "Huge Item... " 20] "- END"]
- .top.l insert end VeryVeryLongItem1 AnEvenMuchVeryVeryLongerItem2 $huge ShortItem3
- pack .top.l -expand 1 -fill both
- pack .top.hs -expand 1 -fill x
- update
-
-<TODO> finish write this test case
-
-} -cleanup {
- destroy .top.l .top.hs .top
-
-} -result {}
test listbox-3.19 {ListboxWidgetCmd procedure, "cget" option} -body {
.l cget
} -returnCodes error -result {wrong # args: should be ".l cget option"}