diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-06-28 08:55:12 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-06-28 08:55:12 (GMT) |
| commit | de170979165b8c59a6d20d82a63620878232fc4a (patch) | |
| tree | 45d93e7347e42f652a47edbe5d7999b5e5bda0a7 | |
| parent | 811b044eb5691553abaa86cf5b70f0f6f6ad20c5 (diff) | |
| parent | fe200c4760cb4f5b020a79716aec8f79e6fae099 (diff) | |
| download | tcl-de170979165b8c59a6d20d82a63620878232fc4a.zip tcl-de170979165b8c59a6d20d82a63620878232fc4a.tar.gz tcl-de170979165b8c59a6d20d82a63620878232fc4a.tar.bz2 | |
merge 8.7
| -rw-r--r-- | tests/cmdAH.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 53a82e6..ca0d83c 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -23,8 +23,8 @@ testConstraint testsetplatform [llength [info commands testsetplatform]] testConstraint testvolumetype [llength [info commands testvolumetype]] testConstraint testbytestring [llength [info commands testbytestring]] testConstraint time64bit [expr { - $::tcl_platform(pointerSize) >= 8 || - [llength [info command testsize]] && [testsize st_mtime] >= 8 + ([llength [info command testsize]] ? + [testsize st_mtime] : $::tcl_platform(pointerSize)) >= 8 }] testConstraint linkDirectory [expr { ![testConstraint win] || |