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 | 7bde9467424438f3430f9d2ece72a604f856ff43 (patch) | |
| tree | 8f39f23145f82d7c131c79685ec6501399225d4d /tests/ioCmd.test | |
| parent | fce6982a3e3c906ae5b46d0c7b93919aadb4f01c (diff) | |
| download | tcl-7bde9467424438f3430f9d2ece72a604f856ff43.zip tcl-7bde9467424438f3430f9d2ece72a604f856ff43.tar.gz tcl-7bde9467424438f3430f9d2ece72a604f856ff43.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"}} |