summaryrefslogtreecommitdiffstats
path: root/tests
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)
commite5010b9a404867c0c5871c1a20b3690a0bb0ab71 (patch)
tree01361c7cbd432bfaea2aeb6f842e8b6525a88a45 /tests
parentdeb0a772f7634c23e874869bd39f63516f72ace5 (diff)
downloadtk-e5010b9a404867c0c5871c1a20b3690a0bb0ab71.zip
tk-e5010b9a404867c0c5871c1a20b3690a0bb0ab71.tar.gz
tk-e5010b9a404867c0c5871c1a20b3690a0bb0ab71.tar.bz2
Add minimal testing of the ttk::progressbar options
Diffstat (limited to 'tests')
-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