diff options
| author | jenglish <jenglish@flightlab.com> | 2008-07-04 19:05:03 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2008-07-04 19:05:03 (GMT) |
| commit | 71beb13aef5469536491f6d9377e151d077720a5 (patch) | |
| tree | 8bf612256385f9fb1bc7fd15c467c7a4368808c6 /tests | |
| parent | 2ae7f2cdd395b7ff0ad3bfa144c8d71cc9fbc346 (diff) | |
| download | tk-71beb13aef5469536491f6d9377e151d077720a5.zip tk-71beb13aef5469536491f6d9377e151d077720a5.tar.gz tk-71beb13aef5469536491f6d9377e151d077720a5.tar.bz2 | |
Audit: ensure that output arguments to Tk_Get*FromObj() are initialized,
in case of erroneous style specifications [#2009213].
Diffstat (limited to 'tests')
| -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.) |