diff options
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}" |