summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2008-07-04 19:05:03 (GMT)
committerjenglish <jenglish@flightlab.com>2008-07-04 19:05:03 (GMT)
commit71beb13aef5469536491f6d9377e151d077720a5 (patch)
tree8bf612256385f9fb1bc7fd15c467c7a4368808c6 /tests
parent2ae7f2cdd395b7ff0ad3bfa144c8d71cc9fbc346 (diff)
downloadtk-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.test9
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.)