summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-11-29 13:59:32 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-11-29 13:59:32 (GMT)
commitacf60973500b17458f07ae9f83c1fe5ebd93140f (patch)
treef02ce88aedc23af2a3bd8a9e4bbbb595f0b0aeac
parent2cd91050a0972e257b9bc1a320d996030f01ce5d (diff)
downloadtcl-acf60973500b17458f07ae9f83c1fe5ebd93140f.zip
tcl-acf60973500b17458f07ae9f83c1fe5ebd93140f.tar.gz
tcl-acf60973500b17458f07ae9f83c1fe5ebd93140f.tar.bz2
Correct typos that produced duplicate test names
-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