summaryrefslogtreecommitdiffstats
path: root/tests/util.test
diff options
context:
space:
mode:
authormdejong <mdejong>2005-10-28 03:26:32 (GMT)
committermdejong <mdejong>2005-10-28 03:26:32 (GMT)
commitdf3ce40eef83f82eefd38070d9864102920aa949 (patch)
tree931092530cdc8242d3889e664bb9019453dce015 /tests/util.test
parent64be4c1e63ef85d515bb28afe134159d649353f6 (diff)
downloadtcl-df3ce40eef83f82eefd38070d9864102920aa949.zip
tcl-df3ce40eef83f82eefd38070d9864102920aa949.tar.gz
tcl-df3ce40eef83f82eefd38070d9864102920aa949.tar.bz2
* generic/tclExecute.c (ExprRoundFunc):
Fix typo where number before rounding is compared with smallest integer instead of number after rounding. This fix does not change the results of any tests. * tests/expr.test: Add round() tests for cases near the min and max int values. * tests/util.test: Remove pointless warning code about testobj command.
Diffstat (limited to 'tests/util.test')
-rw-r--r--tests/util.test9
1 files changed, 1 insertions, 8 deletions
diff --git a/tests/util.test b/tests/util.test
index c16cd58..b71906d 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -7,20 +7,13 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: util.test,v 1.10.4.3 2004/11/03 22:12:17 dgp Exp $
+# RCS: @(#) $Id: util.test,v 1.10.4.4 2005/10/28 03:26:33 mdejong Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import -force ::tcltest::*
}
-if {[info commands testobj] == {}} {
- puts "This application hasn't been compiled with the \"testobj\""
- puts "command, so I can't test the Tcl type and object support."
- ::tcltest::cleanupTests
- return
-}
-
test util-1.1 {TclFindElement procedure - binary element in middle of list} {
lindex {0 foo\x00help 1} 1
} "foo\x00help"