From 2d867d05b3a07b4a2cbbefe48b00762b51d7a766 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Mon, 29 Aug 2005 16:21:58 +0000 Subject: removed inappropriate swizzling of tcl_precision --- tests/expr.test | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/tests/expr.test b/tests/expr.test index 7b7c13b..5604ea2 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.41 2005/08/29 16:18:59 kennykb Exp $ +# RCS: @(#) $Id: expr.test,v 1.42 2005/08/29 16:21:58 kennykb Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -6239,8 +6239,6 @@ test expr-38.1 {abs of smallest 32-bit integer [Bug 1241572]} {wideIs64bit} { expr {abs(-2147483648)} } 2147483648 -set tcl_precision 17 - test expr-39.1 {round() rounds to +-infinity} { expr round(0.5) } 1 -- cgit v0.12