summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-05-14 23:04:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-05-14 23:04:32 (GMT)
commit67cc91605a80e384372e408696f4c0b2f87fd7fd (patch)
treed39360b527f0ab6e56dcd95de8e4efd6066fb34c
parent3863b1c0eac186a8e9cb66952c457082ef00ac8d (diff)
downloadtcl-67cc91605a80e384372e408696f4c0b2f87fd7fd.zip
tcl-67cc91605a80e384372e408696f4c0b2f87fd7fd.tar.gz
tcl-67cc91605a80e384372e408696f4c0b2f87fd7fd.tar.bz2
Omitted constraint required for LP64 platforms.
-rw-r--r--tests/format.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/format.test b/tests/format.test
index 1e57bd4..c6d9731 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.15 2003/05/14 22:45:12 dkf Exp $
+# RCS: @(#) $Id: format.test,v 1.16 2003/05/14 23:04:32 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -522,7 +522,7 @@ test format-18.1 {do not demote existing numeric values} {
format %08x $b
lappend result [expr {$a == $b}]
} {1 1 1 1}
-test format-18.2 {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}]