From c035183a935fdb075e8d424501c9588dc0d1ee95 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 26 Oct 2010 15:05:08 +0000
Subject: Coverage test for portion of ExprSqrtFunc()

---
 tests/expr.test | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/expr.test b/tests/expr.test
index 05fc956..cdda607 100644
--- a/tests/expr.test
+++ b/tests/expr.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: expr.test,v 1.78 2010/02/21 20:09:38 nijtmans Exp $
+# RCS: @(#) $Id: expr.test,v 1.79 2010/10/26 15:05:08 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2.1
@@ -7169,6 +7169,10 @@ test expr-49.1 {Bug 2823282} {
     foo 1
 } 1
 
+test expr-50.1 {test sqrt() of bignums with non-Inf answer} {
+    expr {sqrt("1[string repeat 0 616]") == 1e308}
+} 1
+
 
 
 # cleanup
-- 
cgit v0.12