summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-03-14 16:28:03 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-03-14 16:28:03 (GMT)
commit4bc5664112ad0e60507cf6d83a9937c7679560c6 (patch)
tree8275e54d40a4dc3ecc01e3d27d7ea9dd5d6fee47 /tests
parent92c8f1305491a082d24d929a3916522a1bd4f8e3 (diff)
downloadtcl-4bc5664112ad0e60507cf6d83a9937c7679560c6.zip
tcl-4bc5664112ad0e60507cf6d83a9937c7679560c6.tar.gz
tcl-4bc5664112ad0e60507cf6d83a9937c7679560c6.tar.bz2
* generic/tclCmdAH.c (Tcl_FormatObjCmd): Only add the modifier
that indicates we've got a wide int when we're formatting in an integer style. Stops some libc's from going mad. [Bug #702622] Also tidied whitespace.
Diffstat (limited to 'tests')
-rw-r--r--tests/format.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/format.test b/tests/format.test
index 567bc9e..4050ed3 100644
--- a/tests/format.test
+++ b/tests/format.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: format.test,v 1.11 2002/06/22 04:19:47 dgp Exp $
+# RCS: @(#) $Id: format.test,v 1.12 2003/03/14 16:28:07 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -501,6 +501,9 @@ test format-17.2 {testing %ld with wide} {64bitInts} {
test format-17.3 {testing %ld with non-wide} {64bitInts} {
format %ld 42
} 42
+test format-17.4 {testing %l with non-integer} {
+ format %lf 1
+} 1.000000
# cleanup
catch {unset a}