diff options
| author | max <max@tclers.tk> | 2023-03-30 09:13:22 (GMT) |
|---|---|---|
| committer | max <max@tclers.tk> | 2023-03-30 09:13:22 (GMT) |
| commit | f8b9e919c954be237c906a708530111607f88081 (patch) | |
| tree | 024d11bc3beb532714b6d3023854985c04ea1543 /tests | |
| parent | ef16c107bff799cc8c7d9e3d2010edc6cd84d7f1 (diff) | |
| parent | 784535a35c779f46886fe9a880b706c979efdd77 (diff) | |
| download | tcl-f8b9e919c954be237c906a708530111607f88081.zip tcl-f8b9e919c954be237c906a708530111607f88081.tar.gz tcl-f8b9e919c954be237c906a708530111607f88081.tar.bz2 | |
Merge 8.6: Allow empty mode list in [chan create].
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ioCmd.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 61b3bdd..c5b0352 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -713,12 +713,12 @@ test iocmd-21.1 {chan create, wrong#args, too many} { catch {chan create a b c} msg set msg } {wrong # args: should be "chan create mode cmdprefix"} -test iocmd-21.2 {chan create, invalid r/w mode, empty} { - proc foo {} {} - catch {chan create {} foo} msg +test iocmd-21.2 {chan create, r/w mode empty} { + proc foo {cmd args} { return {initialize finalize watch} } + set chan [chan create {} foo] + close $chan rename foo {} - set msg -} {bad mode list: is empty} +} {} test iocmd-21.3 {chan create, invalid r/w mode, bad string} { proc foo {} {} catch {chan create {c} foo} msg |