summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-03-14 16:19:04 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-03-14 16:19:04 (GMT)
commit5b39ab8cefba4d3245053e8090ca9b7d871aa677 (patch)
treec45cad7f0684ed58a614fef63ad7c515e9225893 /tests
parent107484bbd04b8aa0e32e7c4c5c5cf09d8ac21f26 (diff)
downloadtcl-5b39ab8cefba4d3245053e8090ca9b7d871aa677.zip
tcl-5b39ab8cefba4d3245053e8090ca9b7d871aa677.tar.gz
tcl-5b39ab8cefba4d3245053e8090ca9b7d871aa677.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..7374b46 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.11.2.1 2003/03/14 16:19:13 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}