diff options
author | stanton <stanton@noemail.net> | 1999-05-03 19:19:02 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-05-03 19:19:02 (GMT) |
commit | c36f583446c02424381faff1e0ec4a729156f7e1 (patch) | |
tree | aa7b6cb1593cd98967663f168531c6770b566c18 /tests/binary.test | |
parent | 8d8f443be6ff1a986d94c12646c125300249dc61 (diff) | |
download | tcl-c36f583446c02424381faff1e0ec4a729156f7e1.zip tcl-c36f583446c02424381faff1e0ec4a729156f7e1.tar.gz tcl-c36f583446c02424381faff1e0ec4a729156f7e1.tar.bz2 |
* tests/binary.test:
* generic/tclBinary.c (DupByteArrayInternalRep): Fixed bug where
type was not being set in duplicated object.
FossilOrigin-Name: 23b030de278fdb69fa845a975c49a0981ed6b19a
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 ...?"}} |