Merge 8.7. Add testcases

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/button.test b/tests/button.test
index b30780d..c75b5e7 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -2668,6 +2668,17 @@ test button-1.270 {configuration options} -body {
     destroy .c
 } -result {}
 
+test button-1.271 {configuration options: fallback to default} -setup {
+    checkbutton .c -borderwidth -2 -highlightthickness -2 -font {Helvetica -12 bold}
+    pack .c
+    update
+} -body {
+    .c configure -padx -2 -pady -2 -wraplength -2
+    list [.c cget -padx] [.c cget -pady] [.c cget -borderwidth] [.c cget -highlightthickness] [.c cget -wraplength]
+} -cleanup {
+    destroy .c
+} -result {0 0 0 0 0}
+
 # ex-tests 3.*
 test button-2.1 {ButtonCreate - not enough arguments} -body {
     button