diff options
author | Kevin B Kenny <kennykb@acm.org> | 2005-08-29 16:21:58 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2005-08-29 16:21:58 (GMT) |
commit | 2d867d05b3a07b4a2cbbefe48b00762b51d7a766 (patch) | |
tree | abe5c5c2f9a2a036786a7ec30647ffc46a014b3e | |
parent | ef4b48b4a556b3bc1ecac4ba3f1414cf3b7d4bd1 (diff) | |
download | tcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.zip tcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.tar.gz tcl-2d867d05b3a07b4a2cbbefe48b00762b51d7a766.tar.bz2 |
removed inappropriate swizzling of tcl_precision
-rw-r--r-- | tests/expr.test | 4 |
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 |