diff options
author | hobbs <hobbs> | 2000-05-26 08:50:34 (GMT) |
---|---|---|
committer | hobbs <hobbs> | 2000-05-26 08:50:34 (GMT) |
commit | bce186e5e3868fcc8c95aa589ff668f6fb767758 (patch) | |
tree | cc0e8e165a9746508d977aa0c8c5d9bb71a4f55b /tests/binary.test | |
parent | de3734d2d5031072fc62227f3958364b3479ab7b (diff) | |
download | tcl-bce186e5e3868fcc8c95aa589ff668f6fb767758.zip tcl-bce186e5e3868fcc8c95aa589ff668f6fb767758.tar.gz tcl-bce186e5e3868fcc8c95aa589ff668f6fb767758.tar.bz2 |
* tests/string.test: added string map tests for the one-pair case,
corrected tests to reflect improved error messages in first/last.
Added tests against mem overrun in string index bytearray case.
Diffstat (limited to 'tests/binary.test')
-rw-r--r-- | tests/binary.test | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/tests/binary.test b/tests/binary.test index 07790a2..6e8b64a 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.7 2000/04/10 17:18:57 ericm Exp $ +# RCS: @(#) $Id: binary.test,v 1.8 2000/05/26 08:50:34 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -42,7 +42,6 @@ test binary-1.4 {Tcl_BinaryObjCmd: format} { } {} - test binary-2.1 {Tcl_BinaryObjCmd: format} { list [catch {binary format a } msg] $msg } {1 {not enough arguments for all format specifiers}} @@ -1464,15 +1463,3 @@ test binary-42.1 {Tcl_BinaryObjCmd: bad arguments} {} { # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - |