Differences From Artifact [ac54a23ac2]:

• File tests/util.test — part of check-in [fb8cf7da36] at 2005-10-28 03:26:32 on branch core-8-4-branch — * 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. (user: mdejong size: 11691)

To Artifact [91ce22410b]:

• File tests/util.test — part of check-in [90b4acd7bd] at 2011-03-01 15:38:36 on branch core-8-4-branch — Now that we're no longer using SCM based on RCS, the RCS Keyword lines cause more harm than good. Purged them. (user: dgp size: 11617)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# This file is a Tcl script to test the code in the file tclUtil.c.
# This file is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1995-1998 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# 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.4 2005/10/28 03:26:33 mdejong Exp $

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import -force ::tcltest::*
}

test util-1.1 {TclFindElement procedure - binary element in middle of list} {

<
<

1
2
3
4
5
6
7
8


9
10
11
12
13
14
15

# This file is a Tcl script to test the code in the file tclUtil.c.
# This file is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 1995-1998 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.



if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import -force ::tcltest::*
}

test util-1.1 {TclFindElement procedure - binary element in middle of list} {