diff options
| -rw-r--r-- | tests/ttk/treeview.test | 4 | ||||
| -rw-r--r-- | tests/ttk/ttk.test | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index ac0778c..2fdce0c 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1,5 +1,5 @@ # -# $Id: treeview.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $ +# $Id: treeview.test,v 1.2 2007/05/16 15:44:08 dgp Exp $ # # [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do # what it currently does) @@ -349,7 +349,7 @@ test treeview-6.1 "deletion - setup" -constraints treeview -body { .tv children dtest } -result [list a b c d e] -test treeview-6.1 "delete" -constraints treeview -body { +test treeview-6.1.1 "delete" -constraints treeview -body { .tv delete b consistencyCheck .tv list [.tv exists b] [.tv children dtest] diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test index 654f174..4f91eb0 100644 --- a/tests/ttk/ttk.test +++ b/tests/ttk/ttk.test @@ -305,12 +305,12 @@ test ttk-7.6 "First radiobutton state" -body { .rb1 instate selected } -result 0 -test ttk-7.6 "Unset radiobutton variable" -body { +test ttk-7.7 "Unset radiobutton variable" -body { unset ::choice list [info exists ::choice] [.rb1 instate alternate] [.rb2 instate alternate] } -result {0 1 1} -test ttk-7.6 "Reset radiobutton variable" -body { +test ttk-7.8 "Reset radiobutton variable" -body { set ::choice 2 list [info exists ::choice] [.rb1 instate alternate] [.rb2 instate alternate] } -result {1 0 0} |