diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-03 12:54:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-09-03 12:54:42 (GMT) |
| commit | 3250944e1f22b157135a65f72ee3a36c6f2b336d (patch) | |
| tree | 6127e3a1ef57abda5d787bb3526f821785469a68 /tests/expr.test | |
| parent | 6b9510ca199df94128aa7eb481941b32e5de2d53 (diff) | |
| parent | 2f2b7f6ac7122f3b6be07e793e1658cdb5791aa2 (diff) | |
| download | tcl-3250944e1f22b157135a65f72ee3a36c6f2b336d.zip tcl-3250944e1f22b157135a65f72ee3a36c6f2b336d.tar.gz tcl-3250944e1f22b157135a65f72ee3a36c6f2b336d.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/expr.test b/tests/expr.test index e31da7a..279115c 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -21,10 +21,9 @@ catch [list package require -exact Tcltest [info patchlevel]] # Determine if "long int" type is a 32 bit number and if the wide # type is a 64 bit number on this machine. -testConstraint longIs32bit [expr {int(0x80000000) < 0}] -testConstraint longIs64bit [expr {int(0x8000000000000000) < 0}] -testConstraint wideIs64bit \ - [expr {(wide(0x80000000) > 0) && (wide(0x8000000000000000) < 0)}] +testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] +testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] +testConstraint wideIs64bit [expr {wide(0x8000000000000000) < 0}] # Big test for correct ordering of data in [expr] |