diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-26 12:21:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-26 12:21:32 (GMT) |
| commit | a109c6e3b1247fddeac006e4129a0d84450f6322 (patch) | |
| tree | 18ca79b05a1f21fa761f2e8c875e4ffbe4199956 /tests | |
| parent | e9364d0365702f33a67678bad05b3f0dea2b429f (diff) | |
| parent | 6a7dea21842d8a1ebab4cf679c098bae5ac093e8 (diff) | |
| download | tk-a109c6e3b1247fddeac006e4129a0d84450f6322.zip tk-a109c6e3b1247fddeac006e4129a0d84450f6322.tar.gz tk-a109c6e3b1247fddeac006e4129a0d84450f6322.tar.bz2 | |
Remove "unsupported.tcl" too
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/scrollbar.test | 28 | ||||
| -rw-r--r-- | tests/ttk/entry.test | 2 |
2 files changed, 1 insertions, 29 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index edf263c..c84ce58 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -316,10 +316,6 @@ destroy .t test scrollbar-3.43 {ScrollbarWidgetCmd procedure, "get" option} { list [catch {.s get a} msg] $msg } {1 {wrong # args: should be ".s get"}} -test scrollbar-3.44 {ScrollbarWidgetCmd procedure, "get" option} deprecated { - .s set 100 10 13 14 - .s get -} {100 10 13 14} test scrollbar-3.45 {ScrollbarWidgetCmd procedure, "get" option} { .s set 0.6 0.8 set result {} @@ -401,30 +397,6 @@ test scrollbar-3.63 {ScrollbarWidgetCmd procedure, "set" option} { } set result } {0.4 0.4} -test scrollbar-3.64 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - list [catch {.s set abc def ghi jkl} msg] $msg -} {1 {expected integer but got "abc"}} -test scrollbar-3.65 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - list [catch {.s set 1 def ghi jkl} msg] $msg -} {1 {expected integer but got "def"}} -test scrollbar-3.66 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - list [catch {.s set 1 2 ghi jkl} msg] $msg -} {1 {expected integer but got "ghi"}} -test scrollbar-3.67 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - list [catch {.s set 1 2 3 jkl} msg] $msg -} {1 {expected integer but got "jkl"}} -test scrollbar-3.68 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - .s set -10 50 20 30 - .s get -} {0 50 0 0} -test scrollbar-3.69 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - .s set 100 -10 20 30 - .s get -} {100 0 20 30} -test scrollbar-3.70 {ScrollbarWidgetCmd procedure, "set" option} deprecated { - .s set 100 50 30 20 - .s get -} {100 50 30 30} test scrollbar-3.71 {ScrollbarWidgetCmd procedure, "set" option} { list [catch {.s set 1 2 3} msg] $msg } {1 {wrong # args: should be ".s set firstFraction lastFraction"}} diff --git a/tests/ttk/entry.test b/tests/ttk/entry.test index 9cc1a48..af0417a 100644 --- a/tests/ttk/entry.test +++ b/tests/ttk/entry.test @@ -67,7 +67,7 @@ test entry-1.7 "Deletion - insert cursor in the middle " -body { .e index insert } -result 0 -test entry-1.8 "Index is between 0 and end" -constraints deprecated -body { +test entry-1.8 "Index is between 0 and end" -body { .e delete 0 end .e insert end abcde set res [list [.e index -1] [.e index -4] [.e index 999]] |