From b9fd87e9f82e6795e565386564b6e479a49fed8b Mon Sep 17 00:00:00 2001 From: dkf Date: Fri, 26 Apr 2002 08:43:38 +0000 Subject: Added more thorough tests for handling of conversion to boolean. --- ChangeLog | 2 ++ tests/obj.test | 14 +++++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c769e48..8955a24 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2002-04-26 Donal K. Fellows + * tests/obj.test (obj-11.[56]): Test conversion to boolean more + thoroughly. * generic/tclObj.c (SetBooleanFromAny): Was not calling an integer parsing function on native 64-bit platforms! [Bug 548686] diff --git a/tests/obj.test b/tests/obj.test index 8512049..c4ec7d4 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: obj.test,v 1.6 2001/11/14 23:16:36 hobbs Exp $ +# RCS: @(#) $Id: obj.test,v 1.7 2002/04/26 08:43:38 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -197,6 +197,18 @@ test obj-11.4 {Tcl_GetBooleanFromObj, error converting from "empty string"} { lappend result [catch {testbooleanobj not 1} msg] lappend result $msg } {{} 1 {expected boolean value but got ""}} +test obj-11.5 {Tcl_GetBooleanFromObj, convert hex to boolean} { + set result "" + lappend result [teststringobj set 1 0xac] + lappend result [testbooleanobj not 1] + lappend result [testobj type 1] +} {0xac 0 boolean} +test obj-11.6 {Tcl_GetBooleanFromObj, convert float to boolean} { + set result "" + lappend result [teststringobj set 1 5.42] + lappend result [testbooleanobj not 1] + lappend result [testobj type 1] +} {5.42 0 boolean} test obj-12.1 {DupBooleanInternalRep} { set result "" -- cgit v0.12