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 | a45cb5e6ca825dc4927c3e2ee77413f6d18faa1d (patch) | |
| tree | c8649bb795101ff5e75096911bc52b26fda97fc5 /tests/join.test | |
| parent | 90776b3353758616e05d33be073a10d54ac7dde0 (diff) | |
| parent | 7e14c9657710e00a674b9e8c676f8e15680083d8 (diff) | |
| download | tcl-a45cb5e6ca825dc4927c3e2ee77413f6d18faa1d.zip tcl-a45cb5e6ca825dc4927c3e2ee77413f6d18faa1d.tar.gz tcl-a45cb5e6ca825dc4927c3e2ee77413f6d18faa1d.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] |