Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / tk8.6.4 / tests / ttk / checkbutton.test

diff --git a/util/src/TclTk/tk8.6.4/tests/ttk/checkbutton.test b/util/src/TclTk/tk8.6.4/tests/ttk/checkbutton.test
deleted file mode 100644 (file)
index e18ff32..0000000
--- a/util/src/TclTk/tk8.6.4/tests/ttk/checkbutton.test
+++ /dev/null
@@ -1,48 +0,0 @@
-#
-# ttk::checkbutton widget tests.
-#
-
-package require Tk
-package require tcltest ; namespace import -force tcltest::*
-loadTestedCommands
-
-test checkbutton-1.1 "Checkbutton check" -body {
-    pack [ttk::checkbutton .cb -text "TCheckbutton" -variable cb]
-}
-test checkbutton-1.2 "Checkbutton invoke" -body {
-    .cb invoke
-    list [set ::cb] [.cb instate selected]
-} -result [list 1 1]
-test checkbutton-1.3 "Checkbutton reinvoke" -body {
-    .cb invoke
-    list [set ::cb] [.cb instate selected]
-} -result [list 0 0]
-
-test checkbutton-1.4 "Checkbutton variable" -body {
-    set result []
-    set ::cb 1
-    lappend result [.cb instate selected]
-    set ::cb 0
-    lappend result [.cb instate selected]
-} -result {1 0}
-
-test checkbutton-1.5 "Unset checkbutton variable" -body {
-    set result []
-    unset ::cb
-    lappend result [.cb instate alternate] [info exists ::cb]
-    set ::cb 1
-    lappend result [.cb instate alternate] [info exists ::cb]
-} -result {1 0 0 1}
-
-# See #1257319
-test checkbutton-1.6 "Checkbutton default variable" -body {
-    destroy .cb ; unset -nocomplain {} ; set result [list]
-    ttk::checkbutton .cb -onvalue on -offvalue off
-    lappend result [.cb cget -variable] [info exists .cb] [.cb state]
-    .cb invoke
-    lappend result [info exists .cb] [set .cb] [.cb state]
-    .cb invoke
-    lappend result [info exists .cb] [set .cb] [.cb state]
-} -result [list .cb 0 alternate   1 on selected  1 off {}]
-
-tcltest::cleanupTests