summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-03-11 10:38:10 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-03-11 10:38:10 (GMT)
commit2a9ec78640adf4771ef371035ab3d4bb5207acf2 (patch)
tree01361c7cbd432bfaea2aeb6f842e8b6525a88a45 /tests/ttk
parenteddcfed96bcaffb3ba5a2ced5b3c826943e0c51b (diff)
downloadtk-2a9ec78640adf4771ef371035ab3d4bb5207acf2.zip
tk-2a9ec78640adf4771ef371035ab3d4bb5207acf2.tar.gz
tk-2a9ec78640adf4771ef371035ab3d4bb5207acf2.tar.bz2
Add minimal testing of the ttk::progressbar options
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/progressbar.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/ttk/progressbar.test b/tests/ttk/progressbar.test
index b9add86..bd53f2e 100644
--- a/tests/ttk/progressbar.test
+++ b/tests/ttk/progressbar.test
@@ -82,4 +82,19 @@ test progressbar-end "Cleanup" -body {
destroy .pb
}
+# check existence and default value of each non-core option of the widget
+test progressbar-3.1 "progressbar non-core options" -setup {
+ set res {}
+ ttk::progressbar .defaultpb
+} -body {
+ foreach option {-anchor -foreground -justify -style -text -wraplength \
+ -length -maximum -mode -orient -phase -value -variable} {
+ lappend res [.defaultpb cget $option]
+ }
+ set res
+} -cleanup {
+ unset res
+ destroy .defaultpb
+} -result {w black left {} {} 0 100 100 determinate horizontal 0 0.0 {}}
+
tcltest::cleanupTests