diff options
| -rw-r--r-- | tests/string.test | 10 | ||||
| -rw-r--r-- | tests/util.test | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/string.test b/tests/string.test index 1008c42..02555a4 100644 --- a/tests/string.test +++ b/tests/string.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: string.test,v 1.48 2005/05/11 00:51:28 hobbs Exp $ +# RCS: @(#) $Id: string.test,v 1.49 2005/05/12 22:48:17 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -806,10 +806,6 @@ test string-10.20 {string map, dictionaries can alter map ordering} { set map {aa X a Y} list [string map [dict create aa X a Y] aaa] [string map $map aaa] [dict size $map] [string map $map aaa] } {YYY XY 2 XY} -test string-10.21 {string map, nasty sharing crash from [Bug 1018562]} { - set a {a b} - string map $a $a -} {b b} test string-10.21 {string map, ABR checks} { string map {longstring foob} long } long @@ -840,6 +836,10 @@ test string-10.29 {string map, ABR checks} { test string-10.30 {string map, ABR checks} { string map {lon foob longstring bar} longlon } foobgfoob +test string-10.31 {string map, nasty sharing crash from [Bug 1018562]} { + set a {a b} + string map $a $a +} {b b} test string-11.1 {string match, too few args} { list [catch {string match a} msg] $msg diff --git a/tests/util.test b/tests/util.test index 99419c5..da243cd 100644 --- a/tests/util.test +++ b/tests/util.test @@ -7,7 +7,7 @@ # 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.16 2005/05/10 18:35:25 kennykb Exp $ +# RCS: @(#) $Id: util.test,v 1.17 2005/05/12 22:48:18 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1105,7 +1105,7 @@ test util-11.21 {Tcl_PrintDouble - scaling} { test util-11.22 {Tcl_PrintDouble - scaling} { expr 1.1e16 } {11000000000000000.0} -test util-11.21 {Tcl_PrintDouble - scaling} { +test util-11.23 {Tcl_PrintDouble - scaling} { expr 1.1e17 } {1.1e+17} |