diff options
| author | stanton <stanton> | 1999-05-03 19:19:03 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-05-03 19:19:03 (GMT) |
| commit | f6a3092a5a7c9cae226fa90d90f7859359042ffa (patch) | |
| tree | aa7b6cb1593cd98967663f168531c6770b566c18 /tests/binary.test | |
| parent | 98d911dd458ceb02d94c4f97769cf2340fb127cc (diff) | |
| download | tcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.zip tcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.tar.gz tcl-f6a3092a5a7c9cae226fa90d90f7859359042ffa.tar.bz2 | |
* tests/binary.test:
* generic/tclBinary.c (DupByteArrayInternalRep): Fixed bug where
type was not being set in duplicated object.
Diffstat (limited to 'tests/binary.test')
| -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 ...?"}} |