summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-05-03 19:44:49 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-05-03 19:44:49 (GMT)
commit19116759e64449669cf7b7e9e6fdebdae5f0071f (patch)
treec8649bb795101ff5e75096911bc52b26fda97fc5 /tests
parent3c27ceb6976c6e0b3aecf4280b26e980813baca4 (diff)
parentaed8684173b0fe3f9627c9ff7343d176dfd1afa7 (diff)
downloadtcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.zip
tcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.tar.gz
tcl-19116759e64449669cf7b7e9e6fdebdae5f0071f.tar.bz2
merge 8.5
Diffstat (limited to 'tests')
-rw-r--r--tests/join.test2
-rw-r--r--tests/mathop.test2
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}"