summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-05-02 20:08:50 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-05-02 20:08:50 (GMT)
commitab1dfd493e75af34d7e730e26a189adf49e9ec5d (patch)
treef156c46cafcd33f5d48fc3693abe7caf3d546067 /tests
parent650e24f8fcb8f1ae4346ffe2110c471bb7637b01 (diff)
downloadtcl-ab1dfd493e75af34d7e730e26a189adf49e9ec5d.zip
tcl-ab1dfd493e75af34d7e730e26a189adf49e9ec5d.tar.gz
tcl-ab1dfd493e75af34d7e730e26a189adf49e9ec5d.tar.bz2
Converted the [binary] command into an ensemble.
Diffstat (limited to 'tests')
-rw-r--r--tests/binary.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/binary.test b/tests/binary.test
index 71acaf3..28e9c78 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.32 2008/03/24 03:10:46 patthoyts Exp $
+# RCS: @(#) $Id: binary.test,v 1.33 2008/05/02 20:08:53 patthoyts Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -31,10 +31,10 @@ test binary-0.1 {DupByteArrayInternalRep} {
test binary-1.1 {Tcl_BinaryObjCmd: bad args} {
list [catch {binary} msg] $msg
-} {1 {wrong # args: should be "binary option ?arg arg ...?"}}
+} {1 {wrong # args: should be "binary subcommand ?argument ...?"}}
test binary-1.2 {Tcl_BinaryObjCmd: bad args} {
list [catch {binary foo} msg] $msg
-} {1 {bad option "foo": must be format or scan}}
+} {1 {unknown or ambiguous subcommand "foo": must be format, or scan}}
test binary-1.3 {Tcl_BinaryObjCmd: format error} {
list [catch {binary f} msg] $msg
@@ -1541,7 +1541,7 @@ test binary-41.8 {ScanNumber: word alignment} littleEndian {
test binary-42.1 {Tcl_BinaryObjCmd: bad arguments} {} {
catch {binary ?} result
set result
-} {bad option "?": must be format or scan}
+} {unknown or ambiguous subcommand "?": must be format, or scan}
# Wide int (guaranteed at least 64-bit) handling
test binary-43.1 {Tcl_BinaryObjCmd: format wide int} {} {