summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-08-29 16:21:58 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-08-29 16:21:58 (GMT)
commit2d867d05b3a07b4a2cbbefe48b00762b51d7a766 (patch)
treeabe5c5c2f9a2a036786a7ec30647ffc46a014b3e
parentef4b48b4a556b3bc1ecac4ba3f1414cf3b7d4bd1 (diff)
downloadtcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.zip
tcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.tar.gz
tcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.tar.bz2
removed inappropriate swizzling of tcl_precision
-rw-r--r--tests/expr.test4
1 files changed, 1 insertions, 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