diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-11-19 18:49:58 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-11-19 18:49:58 (GMT) |
| commit | 7d8887a5c1131402a85c7ef45899e28b85561a91 (patch) | |
| tree | 3955729456b455c13e33b835751e6723f0fb8359 /tests/ttk/ttk.test | |
| parent | 86ca756db7520c030a65f1198ee3a1b8443270ec (diff) | |
| download | tk-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.test | 13 |
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 |