From 2a9ec78640adf4771ef371035ab3d4bb5207acf2 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 11 Mar 2017 10:38:10 +0000
Subject: Add minimal testing of the ttk::progressbar options

---
 tests/ttk/progressbar.test | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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
-- 
cgit v0.12