summaryrefslogtreecommitdiffstats
path: root/tests/binary.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/binary.test')
-rw-r--r--tests/binary.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/binary.test b/tests/binary.test
index 77306b4..2f71866 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.34 2008/06/03 23:52:51 patthoyts Exp $
+# RCS: @(#) $Id: binary.test,v 1.35 2008/07/19 22:50:38 nijtmans Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -39,7 +39,7 @@ test binary-1.2 {Tcl_BinaryObjCmd: bad args} -body {
test binary-1.3 {Tcl_BinaryObjCmd: format error} -body {
binary f
} -returnCodes error \
- -result {wrong # args: should be "binary format formatString ?arg arg ...?"}
+ -result {wrong # args: should be "binary format formatString ?arg ...?"}
test binary-1.4 {Tcl_BinaryObjCmd: format} -body {
binary format ""
} -result {}
@@ -592,10 +592,10 @@ test binary-18.1 {Tcl_BinaryObjCmd: format} {
test binary-19.1 {Tcl_BinaryObjCmd: errors} {
list [catch {binary s} msg] $msg
-} {1 {wrong # args: should be "binary scan value formatString ?varName varName ...?"}}
+} {1 {wrong # args: should be "binary scan value formatString ?varName ...?"}}
test binary-19.2 {Tcl_BinaryObjCmd: errors} {
list [catch {binary scan foo} msg] $msg
-} {1 {wrong # args: should be "binary scan value formatString ?varName varName ...?"}}
+} {1 {wrong # args: should be "binary scan value formatString ?varName ...?"}}
test binary-19.3 {Tcl_BinaryObjCmd: scan} {
binary scan {} {}
} 0