summaryrefslogtreecommitdiffstats
path: root/tests/ttk/misc.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/ttk/misc.test')
-rw-r--r--tests/ttk/misc.test33
1 files changed, 0 insertions, 33 deletions
diff --git a/tests/ttk/misc.test b/tests/ttk/misc.test
deleted file mode 100644
index 27b87d6..0000000
--- a/tests/ttk/misc.test
+++ /dev/null
@@ -1,33 +0,0 @@
-#
-# $Id: misc.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
-#
-
-package require Tk 8.5
-package require tcltest ; namespace import -force tcltest::*
-loadTestedCommands
-
-test misc-1.0 "#1551500 -parent option in ttk::dialog doesn't work" -body {
- ttk::dialog .dialog -parent . -type ok \
- -message "Something to say" -title "Let's see"
- wm transient .dialog
-} -result . -cleanup { destroy .dialog }
-
-test misc-1.1 "ttk::dialog w/no -parent option" -body {
- toplevel .t
- ttk::dialog .t.dialog -type ok
- wm transient .t.dialog
-} -result .t -cleanup { destroy .t }
-
-test misc-1.2 "Explicitly specify -parent" -body {
- toplevel .t
- ttk::dialog .t.dialog -type ok -parent .
- wm transient .t.dialog
-} -result . -cleanup { destroy .t }
-
-test misc-1.3 "Nontransient dialog" -body {
- toplevel .t
- ttk::dialog .t.dialog -type ok -parent ""
- wm transient .t.dialog
-} -result "" -cleanup { destroy .t }
-
-tcltest::cleanupTests