diff options
| author | ferrieux <ferrieux@noemail.net> | 2009-02-22 17:45:19 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@noemail.net> | 2009-02-22 17:45:19 (GMT) |
| commit | 139fb61d96a67aa3aa388232b2b9f4bf62166aaf (patch) | |
| tree | 9a010fa568b02df4b2938a18a6ec406cae1fb41a /tests/binary.test | |
| parent | 5cf9531db46d4ec752ed32776039e00e65892ed2 (diff) | |
| download | tcl-139fb61d96a67aa3aa388232b2b9f4bf62166aaf.zip tcl-139fb61d96a67aa3aa388232b2b9f4bf62166aaf.tar.gz tcl-139fb61d96a67aa3aa388232b2b9f4bf62166aaf.tar.bz2 | |
Revert commits of 20080723. Those were speed tests, that are inherently brittle.
FossilOrigin-Name: 1ee78aeeae90e3a804027b9da8619e97f408c44d
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 |