diff options
| -rw-r--r-- | tests/binary.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/binary.test b/tests/binary.test index 9395140..023cc74 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: binary.test,v 1.29 2006/10/06 13:37:21 patthoyts Exp $ +# RCS: @(#) $Id: binary.test,v 1.30 2006/11/29 13:59:32 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1912,13 +1912,13 @@ test binary-54.9 {Tcl_BinaryObjCmd: scan} littleEndian { set arg2 bar list [binary scan \x52\xa3\x53\x54\x05 t2c* arg1 arg2] $arg1 $arg2 } {2 {-23726 21587} 5} -test binary-55.10 {Tcl_BinaryObjCmd: scan} littleEndian { +test binary-54.10 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar list [binary scan \x00\x80\x00\x80 tut arg1 arg2] $arg1 $arg2 } {2 32768 -32768} -test binary-55.11 {Tcl_BinaryObjCmd: scan} littleEndian { +test binary-54.11 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar @@ -2018,13 +2018,13 @@ test binary-56.9 {Tcl_BinaryObjCmd: scan} littleEndian { set arg2 bar list [binary scan \x52\xa3\x53\x54\x01\x02\x03\x04\x05 n2c* arg1 arg2] $arg1 $arg2 } {2 {1414767442 67305985} 5} -test binary-57.10 {Tcl_BinaryObjCmd: scan} littleEndian { +test binary-56.10 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar list [binary scan \x80\x00\x00\x00\x80\x00\x00\x00 nun arg1 arg2] $arg1 $arg2 } {2 128 128} -test binary-57.11 {Tcl_BinaryObjCmd: scan} littleEndian { +test binary-56.11 {Tcl_BinaryObjCmd: scan} littleEndian { catch {unset arg1 arg2} set arg1 foo set arg2 bar |