diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-03-11 10:38:10 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-03-11 10:38:10 (GMT) |
| commit | 2a9ec78640adf4771ef371035ab3d4bb5207acf2 (patch) | |
| tree | 01361c7cbd432bfaea2aeb6f842e8b6525a88a45 /tests/ttk | |
| parent | eddcfed96bcaffb3ba5a2ced5b3c826943e0c51b (diff) | |
| download | tk-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.test | 15 |
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 |