diff options
| author | jenglish <jenglish@noemail.net> | 2008-07-04 19:06:01 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2008-07-04 19:06:01 (GMT) |
| commit | 45398b44c8441352d8a7b8099f319798dd8702af (patch) | |
| tree | cdbb2a1f76fc7db31e619a48557007d96f1744bc /tests/ttk | |
| parent | 21a1aa5941380e976329558026f1e2593bac9c4d (diff) | |
| download | tk-45398b44c8441352d8a7b8099f319798dd8702af.zip tk-45398b44c8441352d8a7b8099f319798dd8702af.tar.gz tk-45398b44c8441352d8a7b8099f319798dd8702af.tar.bz2 | |
Audit: ensure that output arguments to Tk_Get*FromObj() are initialized,
in case of erroneous style specifications [#2009213].
FossilOrigin-Name: 7a2bfd0898a7bf10a7f05fcb3343e86b2a9a1d6a
Diffstat (limited to 'tests/ttk')
| -rw-r--r-- | tests/ttk/ttk.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test index fab6c2c..a1430ff 100644 --- a/tests/ttk/ttk.test +++ b/tests/ttk/ttk.test @@ -191,6 +191,15 @@ test ttk-3.2 "Propagate errors from variable traces" -body { unset ::A ; destroy .cb } -returnCodes error -result {can't set "A": failure} +test ttk-3.4 "SF#2009213" -body { + ttk::style configure TScale -sliderrelief {} + pack [ttk::scale .s] + update +} -cleanup { + ttk::style configure TScale -sliderrelief raised + destroy .s +} + # Test resource allocation # (@@@ "-font" is a compatibility option now, so tests 4.1-4.3 # don't really test anything useful at the moment.) |