diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-05-03 19:44:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-05-03 19:44:49 (GMT) |
| commit | 19116759e64449669cf7b7e9e6fdebdae5f0071f (patch) | |
| tree | c8649bb795101ff5e75096911bc52b26fda97fc5 /tests | |
| parent | 3c27ceb6976c6e0b3aecf4280b26e980813baca4 (diff) | |
| parent | aed8684173b0fe3f9627c9ff7343d176dfd1afa7 (diff) | |
| download | tcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.zip tcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.tar.gz tcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/join.test | 2 | ||||
| -rw-r--r-- | tests/mathop.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/join.test b/tests/join.test index 5c06936..4abe233 100644 --- a/tests/join.test +++ b/tests/join.test @@ -37,7 +37,7 @@ test join-2.2 {join errors} { } {1 {wrong # args: should be "join list ?joinString?"} {TCL WRONGARGS}} test join-2.3 {join errors} { list [catch {join "a \{ c" 111} msg] $msg $errorCode -} {1 {unmatched open brace in list} {TCL VALUE LIST}} +} {1 {unmatched open brace in list} {TCL VALUE LIST BRACE}} test join-3.1 {joinString is binary ok} { string length [join {a b c} a\0b] diff --git a/tests/mathop.test b/tests/mathop.test index db713bf..f122b7b 100644 --- a/tests/mathop.test +++ b/tests/mathop.test @@ -1092,7 +1092,7 @@ test mathop-24.3 { binary ops, bad values } { } foreach op {in ni} { lappend res [TestOp $op 5 "a b \{ c"] - lappend exp "unmatched open brace in list TCL VALUE LIST" + lappend exp "unmatched open brace in list TCL VALUE LIST BRACE" } lappend res [TestOp % 5 0] lappend exp "divide by zero ARITH DIVZERO {divide by zero}" |