diff options
author | max <max@tclers.tk> | 2023-03-30 09:23:44 (GMT) |
---|---|---|
committer | max <max@tclers.tk> | 2023-03-30 09:23:44 (GMT) |
commit | 67ced520761d9c2dff0022dafbebdb996e20b551 (patch) | |
tree | 665b83f10083073eb9adafaa8cf6f0ce4fc9eb51 /tests/ioCmd.test | |
parent | 5b6755494dd27d501b2fa753ecacceda849092ed (diff) | |
parent | f8b9e919c954be237c906a708530111607f88081 (diff) | |
download | tcl-67ced520761d9c2dff0022dafbebdb996e20b551.zip tcl-67ced520761d9c2dff0022dafbebdb996e20b551.tar.gz tcl-67ced520761d9c2dff0022dafbebdb996e20b551.tar.bz2 |
Merge 8.7: Allow empty mode list in [chan create].
Diffstat (limited to 'tests/ioCmd.test')
-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 89c6e76..cab4745 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -698,12 +698,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 |