diff options
author | max <max@tclers.tk> | 2023-03-30 08:46:27 (GMT) |
---|---|---|
committer | max <max@tclers.tk> | 2023-03-30 08:46:27 (GMT) |
commit | 784535a35c779f46886fe9a880b706c979efdd77 (patch) | |
tree | 0f44abfb50b3fc8d28e5248ffeecc593b19eb516 /tests | |
parent | 2616ef0ef16085f9c15283dfb56c9ccfd3f2da5d (diff) | |
download | tcl-784535a35c779f46886fe9a880b706c979efdd77.zip tcl-784535a35c779f46886fe9a880b706c979efdd77.tar.gz tcl-784535a35c779f46886fe9a880b706c979efdd77.tar.bz2 |
Allow empty mode list in [chan create], so that refchans are able to mimic the behavior of channels created by [socket -server].
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 d17dce3..b0dd1d7 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -670,12 +670,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 |