summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/binary.test10
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