diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-27 13:48:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-27 13:48:56 (GMT) |
| commit | 765fa34df1dd348c3b4ed53ecf698aa542ba21ba (patch) | |
| tree | fecf25082d0de44145e0686cba9bbf3e87c5b797 /tests/expr-old.test | |
| parent | 6def5b4ca3044c768a03aad8316287ebfa8249ff (diff) | |
| download | tcl-765fa34df1dd348c3b4ed53ecf698aa542ba21ba.zip tcl-765fa34df1dd348c3b4ed53ecf698aa542ba21ba.tar.gz tcl-765fa34df1dd348c3b4ed53ecf698aa542ba21ba.tar.bz2 | |
More elimination of dup test numbers [Bugs 710365, 710369]
Diffstat (limited to 'tests/expr-old.test')
| -rw-r--r-- | tests/expr-old.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/expr-old.test b/tests/expr-old.test index 32f737a..2df8135 100644 --- a/tests/expr-old.test +++ b/tests/expr-old.test @@ -13,7 +13,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-old.test,v 1.16 2002/08/05 03:24:41 dgp Exp $ +# RCS: @(#) $Id: expr-old.test,v 1.17 2003/03/27 13:48:58 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -194,16 +194,16 @@ test expr-old-4.23 {string operators} {expr {"" eq "abd"}} 0 test expr-old-4.24 {string operators} {expr {"" eq ""}} 1 test expr-old-4.25 {string operators} {expr {"abd" ne ""}} 1 test expr-old-4.26 {string operators} {expr {"" ne ""}} 0 -test expr-old-4.26 {string operators} {expr {"longerstring" eq "shorter"}} 0 -test expr-old-4.26 {string operators} {expr {"longerstring" ne "shorter"}} 1 +test expr-old-4.27 {string operators} {expr {"longerstring" eq "shorter"}} 0 +test expr-old-4.28 {string operators} {expr {"longerstring" ne "shorter"}} 1 # The following tests are non-portable because on some systems "+" # and "-" can be parsed as numbers. -test expr-old-4.19 {string operators} {nonPortable} {expr {"0" == "+"}} 0 -test expr-old-4.20 {string operators} {nonPortable} {expr {"0" == "-"}} 0 -test expr-old-4.21 {string operators} {expr {1?"foo":"bar"}} foo -test expr-old-4.22 {string operators} {expr {0?"foo":"bar"}} bar +test expr-old-4.29 {string operators} {nonPortable} {expr {"0" == "+"}} 0 +test expr-old-4.30 {string operators} {nonPortable} {expr {"0" == "-"}} 0 +test expr-old-4.31 {string operators} {expr {1?"foo":"bar"}} foo +test expr-old-4.32 {string operators} {expr {0?"foo":"bar"}} bar # Operators that aren't legal on string operands. |