diff options
| author | redman <redman> | 1999-06-28 23:49:29 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-06-28 23:49:29 (GMT) |
| commit | 71008cf5a42b9cda92ef5051322cb11dee863e91 (patch) | |
| tree | 97d30bfa6cb6e1eb503e59a1639c8fccd6e6d486 /tests/binary.test | |
| parent | c258b333c62e72fc2f07289988d0989a8742f6df (diff) | |
| download | tcl-71008cf5a42b9cda92ef5051322cb11dee863e91.zip tcl-71008cf5a42b9cda92ef5051322cb11dee863e91.tar.gz tcl-71008cf5a42b9cda92ef5051322cb11dee863e91.tar.bz2 | |
Applied patch from Peter Hardie (with modifications) to fix
Tcl_GetIndexFromObj when the key is "". Added test cases and
doc note.
Diffstat (limited to 'tests/binary.test')
| -rw-r--r-- | tests/binary.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/binary.test b/tests/binary.test index c890f4e..a44da4d 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.5 1999/06/26 03:54:10 jenn Exp $ +# RCS: @(#) $Id: binary.test,v 1.6 1999/06/28 23:49:31 redman Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1456,6 +1456,11 @@ test binary-41.8 {ScanNumber: word alignment} {nonPortable pcOnly} { list [binary scan \x01\x9a\x99\x99\x99\x99\x99\xf9\x3f c1d1 arg1 arg2] $arg1 $arg2 } {2 1 1.6} +test binary-42.1 {Tcl_BinaryObjCmd: bad arguments} {} { + catch {binary ""} result + set result +} {bad option "": must be format or scan} + # cleanup ::tcltest::cleanupTests return |