diff options
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 99d6af3..6bdc827 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: ioCmd.test,v 1.36.2.9 2010/08/03 20:06:34 dgp Exp $ +# RCS: @(#) $Id: ioCmd.test,v 1.36.2.10 2010/11/30 20:59:28 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -155,7 +155,7 @@ test iocmd-4.12 {read command} { set x [list [catch {read $f 12z} msg] $msg $::errorCode] close $f set x -} {1 {expected integer but got "12z"} NONE} +} {1 {expected integer but got "12z"} {TCL VALUE NUMBER}} test iocmd-5.1 {seek command} { list [catch {seek} msg] $msg |