From f9780ff1a6e2bee6f3025ef79c0d95a2c12e05c2 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Wed, 4 Oct 2017 05:14:42 +0000
Subject: Add test for [55b95f578a]: Associating variable with bignum value
 with scale crashes it (at this point the test produces a crash)

---
 tests/scale.test | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/scale.test b/tests/scale.test
index 8c14ed4..384d117 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -1504,6 +1504,17 @@ test scale-20.8 {Bug [2262543fff] - Scale widget unexpectedly fires command call
     destroy .s
 } -result {10 10}
 
+test scale-21 {Bug [55b95f578a] - Associating variable with bignum value with scale crashes it} -setup {
+    catch {destroy .s}
+} -body {
+    pack [scale .s]
+    set foo 5.79e99
+    # non-regression test for bug [55b95f578a] - shall just not crash
+    .s configure -variable foo
+} -cleanup {
+    destroy .s
+} -result {}
+
 option clear
 
 # cleanup
-- 
cgit v0.12