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/join.test | |
| 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/join.test')
| -rw-r--r-- | tests/join.test | 2 |
1 files changed, 1 insertions, 1 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] |