diff options
Diffstat (limited to 'tests/binary.test')
| -rw-r--r-- | tests/binary.test | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/tests/binary.test b/tests/binary.test index b23548e..c01cdde 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.38 2008/12/15 17:11:34 ferrieux Exp $ +# RCS: @(#) $Id: binary.test,v 1.39 2009/02/22 17:45:21 ferrieux Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2727,17 +2727,6 @@ test binary-75.25 {binary decode uuencode} -body { binary decode uuencode $s } -returnCodes error -match glob -result {invalid uuencode character "z" at position 4} -test binary-76.1 {byte array concat speed} -body { - set b1 [binary format H* [string repeat E9 1000000]] - set b2 [binary format H* 41] - set t1 [lindex [time {set z ${b1}${b2}}] 0] - unset z - set b1 [binary format H* [string repeat E9 1000000]] - set b2 [binary format H* 41] - set t2 [lindex [time {set z ${b1}é}] 0] - expr {($t2/$t1)>3} -} -result 1 - # cleanup ::tcltest::cleanupTests return |