summaryrefslogtreecommitdiffstats
path: root/tests/expr.test
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2005-08-29 16:38:36 (GMT)
committerKevin B Kenny <kennykb@acm.org>2005-08-29 16:38:36 (GMT)
commitb28ca78703b600e8c1887fa87bb47eaae1ad5afc (patch)
tree1e522c6e4366bba01f985690cb334ce0373f8322 /tests/expr.test
parent4961bc02318255d76a3cdfee3c8ae9fe8f6465ed (diff)
downloadtcl-b28ca78703b600e8c1887fa87bb47eaae1ad5afc.zip
tcl-b28ca78703b600e8c1887fa87bb47eaae1ad5afc.tar.gz
tcl-b28ca78703b600e8c1887fa87bb47eaae1ad5afc.tar.bz2
fix test case numbering
Diffstat (limited to 'tests/expr.test')
-rw-r--r--tests/expr.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/expr.test b/tests/expr.test
index af9b55c..ddbbc1f 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.17.2.6 2005/08/29 16:37:45 kennykb Exp $
+# RCS: @(#) $Id: expr.test,v 1.17.2.7 2005/08/29 16:38:36 kennykb Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -887,7 +887,7 @@ test expr-39.11 {round() boundary case - -1/2 - 1 ulp} {
}
expr {round($x)}
} -1
-test expr-39.10 {round() boundary case - -1/2 + 1 ulp} {
+test expr-39.12 {round() boundary case - -1/2 + 1 ulp} {
set x -0.25
set bit 0.125
while 1 {