summaryrefslogtreecommitdiffstats
path: root/tests/ttk/ttk.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2007-11-19 18:49:58 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2007-11-19 18:49:58 (GMT)
commit7d8887a5c1131402a85c7ef45899e28b85561a91 (patch)
tree3955729456b455c13e33b835751e6723f0fb8359 /tests/ttk/ttk.test
parent86ca756db7520c030a65f1198ee3a1b8443270ec (diff)
downloadtk-7d8887a5c1131402a85c7ef45899e28b85561a91.zip
tk-7d8887a5c1131402a85c7ef45899e28b85561a91.tar.gz
tk-7d8887a5c1131402a85c7ef45899e28b85561a91.tar.bz2
Fixed crash bug in style element create
Diffstat (limited to 'tests/ttk/ttk.test')
-rw-r--r--tests/ttk/ttk.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test
index 4f91eb0..cd3291b 100644
--- a/tests/ttk/ttk.test
+++ b/tests/ttk/ttk.test
@@ -587,6 +587,19 @@ test ttk-14.3 "-textvariable in nonexistant namespace" -body {
-match glob -cleanup { destroy .tw }
+test ttk-15.1 "style element create: insufficient args" -body {
+ ttk::style element create
+} -returnCodes 1 -match glob -result "wrong # args:*"
+test ttk-15.2 "style element create: insufficient args" -body {
+ ttk::style element create plain.background
+} -returnCodes 1 -match glob -result "wrong # args:*"
+test ttk-15.3 "style element create: insufficient args" -body {
+ ttk::style element create plain.background from
+} -returnCodes 1 -match glob -result "wrong # args:*"
+test ttk-15.4 "style element create: valid" -body {
+ ttk::style element create plain.background from default
+} -returnCodes 0 -result ""
+
eval destroy [winfo children .]
tcltest::cleanupTests