diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/binary.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/binary.test b/tests/binary.test index 1399edd..c0da86b 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -10,12 +10,22 @@ # 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.3 1999/04/16 00:47:23 stanton Exp $ +# RCS: @(#) $Id: binary.test,v 1.4 1999/05/03 19:19:04 stanton Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] } +test binary-2.1 {DupByteArrayInternalRep} { + set hdr [binary format cc 0 0316] + set buf hellomatt + + set data $hdr + append data $buf + + string length $data +} 11 + test binary-1.1 {Tcl_BinaryObjCmd: bad args} { list [catch {binary} msg] $msg } {1 {wrong # args: should be "binary option ?arg arg ...?"}} |