diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:27:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-30 22:27:40 (GMT) |
| commit | 0758324455f7cd805291c1062b6c7fb70fd13647 (patch) | |
| tree | d71c67987bcd3070c793c82e843fd8aedc8032ca /tests/ioCmd.test | |
| parent | 812c3e3103658db7d4e360b9203097c339a3a204 (diff) | |
| parent | feac96c8b3c738ef7cb8e3e89e076aa4f23f13b0 (diff) | |
| download | tcl-0758324455f7cd805291c1062b6c7fb70fd13647.zip tcl-0758324455f7cd805291c1062b6c7fb70fd13647.tar.gz tcl-0758324455f7cd805291c1062b6c7fb70fd13647.tar.bz2 | |
Merge 9.0
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 82b3250..3ea62a3 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 |