diff options
| author | jenglish <jenglish@flightlab.com> | 2008-07-04 19:06:02 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2008-07-04 19:06:02 (GMT) |
| commit | 98b92227c91db9953bfadbc7ecc94e42b112e670 (patch) | |
| tree | cdbb2a1f76fc7db31e619a48557007d96f1744bc /tests | |
| parent | 7c8f30c254e7e1a4c10c3cb0e9e99170b3c2a01e (diff) | |
| download | tk-98b92227c91db9953bfadbc7ecc94e42b112e670.zip tk-98b92227c91db9953bfadbc7ecc94e42b112e670.tar.gz tk-98b92227c91db9953bfadbc7ecc94e42b112e670.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.) |