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 | 2522c1a958eb895f1e4d576207c643353960ee56 (patch) | |
| tree | cdbb2a1f76fc7db31e619a48557007d96f1744bc /tests/ttk | |
| parent | fded95f4e881432bcd0b9bb27baf0aad2ad99be9 (diff) | |
| download | tk-2522c1a958eb895f1e4d576207c643353960ee56.zip tk-2522c1a958eb895f1e4d576207c643353960ee56.tar.gz tk-2522c1a958eb895f1e4d576207c643353960ee56.tar.bz2 | |
Audit: ensure that output arguments to Tk_Get*FromObj() are initialized,
in case of erroneous style specifications [#2009213].
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.) |