diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-06-17 14:30:06 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-06-17 14:30:06 (GMT) |
| commit | d27ff0c78862fc1652325b8c27e0882aa772171f (patch) | |
| tree | 8f39f23145f82d7c131c79685ec6501399225d4d /tests/ioCmd.test | |
| parent | 946600db937b025964117d8aaa11a9e27f96e9aa (diff) | |
| download | tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.zip tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.tar.gz tcl-d27ff0c78862fc1652325b8c27e0882aa772171f.tar.bz2 | |
[f0f876c141] Improve consistency in error messages.
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index ff93719..8d35ec7 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -639,7 +639,7 @@ test iocmd-15.9 {Tcl_FcopyObjCmd} {fcopy} { } "1 {channel \"$rfile\" wasn't opened for writing}" test iocmd-15.10 {Tcl_FcopyObjCmd} {fcopy} { list [catch {fcopy $rfile $wfile foo bar} msg] $msg -} {1 {bad switch "foo": must be -size or -command}} +} {1 {bad option "foo": must be -size or -command}} test iocmd-15.11 {Tcl_FcopyObjCmd} {fcopy} { list [catch {fcopy $rfile $wfile -size foo} msg] $msg } {1 {expected integer but got "foo"}} |