diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-09-11 15:39:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-09-11 15:39:20 (GMT) |
| commit | 4252e1f99f58589cf3ab90f0d2fe8f83f48fd996 (patch) | |
| tree | f3fc939283abbcd82e735a1fece13773a5d35ee0 /tests/get.test | |
| parent | 9db2475e4e15362e1c9baeef193c1bb701fbe13e (diff) | |
| parent | 4b7caf2e4a373d2616cc7d4f3d05566bd1588b6d (diff) | |
| download | tcl-4252e1f99f58589cf3ab90f0d2fe8f83f48fd996.zip tcl-4252e1f99f58589cf3ab90f0d2fe8f83f48fd996.tar.gz tcl-4252e1f99f58589cf3ab90f0d2fe8f83f48fd996.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tests/get.test')
| -rw-r--r-- | tests/get.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/get.test b/tests/get.test index d6a7206..c381098 100644 --- a/tests/get.test +++ b/tests/get.test @@ -20,8 +20,8 @@ catch [list package require -exact Tcltest [info patchlevel]] testConstraint testgetint [llength [info commands testgetint]] testConstraint testdoubleobj [llength [info commands testdoubleobj]] -testConstraint longIs32bit [expr {int(0x80000000) < 0}] -testConstraint longIs64bit [expr {int(0x8000000000000000) < 0}] +testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] +testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] test get-1.1 {Tcl_GetInt procedure} testgetint { testgetint 44 { 22} |