diff options
| author | mdejong <mdejong> | 2005-10-28 03:26:32 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2005-10-28 03:26:32 (GMT) |
| commit | df3ce40eef83f82eefd38070d9864102920aa949 (patch) | |
| tree | 931092530cdc8242d3889e664bb9019453dce015 /tests/util.test | |
| parent | 64be4c1e63ef85d515bb28afe134159d649353f6 (diff) | |
| download | tcl-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.test | 9 |
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" |