summaryrefslogtreecommitdiffstats
path: root/tests/expr-old.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-03-27 13:48:56 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-03-27 13:48:56 (GMT)
commit765fa34df1dd348c3b4ed53ecf698aa542ba21ba (patch)
treefecf25082d0de44145e0686cba9bbf3e87c5b797 /tests/expr-old.test
parent6def5b4ca3044c768a03aad8316287ebfa8249ff (diff)
downloadtcl-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.test14
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.