summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2005-10-13 21:45:29 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2005-10-13 21:45:29 (GMT)
commit06be524fb096bbdcf2eb156ca47dfd09cdf92fbe (patch)
treedd93e3b7e7385c094dc9b69337f67e1f9d162feb /tests
parent298c91d0d2026e4bfb0630d0cee9bfbb1f73e760 (diff)
downloadtcl-06be524fb096bbdcf2eb156ca47dfd09cdf92fbe.zip
tcl-06be524fb096bbdcf2eb156ca47dfd09cdf92fbe.tar.gz
tcl-06be524fb096bbdcf2eb156ca47dfd09cdf92fbe.tar.bz2
Fix [Bug 1284178] and tweak tests to accommodate.
Diffstat (limited to 'tests')
-rw-r--r--tests/format.test14
1 files changed, 9 insertions, 5 deletions
diff --git a/tests/format.test b/tests/format.test
index 448f162..02af0d3 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.2.7 2005/06/17 23:26:20 dkf Exp $
+# RCS: @(#) $Id: format.test,v 1.11.2.8 2005/10/13 21:45:32 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -369,6 +369,10 @@ test format-10.4 {"h" format specifier} {
# Bug 1154163: This is minimal behaviour for %hx specifier!
format %hx 1
} 1
+test format-10.5 {"h" format specifier} {
+ # Bug 1284178: Highly out-of-range values shouldn't cause errors
+ format %hu 0x100000000
+} 0
test format-11.1 {XPG3 %$n specifiers} {
format {%2$d %1$d} 4 5
@@ -497,8 +501,8 @@ for {set i 290} {$i < 400} {incr i} {
[expr {wide(0x80000000) != int(0x80000000)}]
test format-17.1 {testing %d with wide} {64bitInts wideIntExpressions} {
- list [catch {format %d 7810179016327718216} msg] $msg
-} {1 {integer value too large to represent}}
+ format %d 7810179016327718216
+} 1819043144
test format-17.2 {testing %ld with wide} {64bitInts} {
format %ld 7810179016327718216
} 7810179016327718216
@@ -536,8 +540,8 @@ test format-18.1 {do not demote existing numeric values} {
test format-18.2 {do not demote existing numeric values} {wideIntExpressions} {
set a [expr {0xaaaaaaaaaa + 1}]
set b 0xaaaaaaaaab
- list [catch {format %08x $a} msg] $msg [expr {$a == $b}]
-} {1 {integer value too large to represent} 1}
+ list [format %08x $a] [expr {$a == $b}]
+} {aaaaaaab 1}
test format-19.1 {
regression test - tcl-core message by Brian Griffin on