diff options
author | sebres <sebres@users.sourceforge.net> | 2019-07-12 12:18:00 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2019-07-12 12:18:00 (GMT) |
commit | eb8924753ecc939c45fa78ca5f3f854e213f5f01 (patch) | |
tree | 3c71aa612fba891410acd982ac3278a4683eb85f /tests | |
parent | b2b3391857e3e0d0c9ad4805b07168c2caf29333 (diff) | |
parent | 30fc501320ef1a28a3f8630f1beabfce3a8f69f0 (diff) | |
download | tcl-eb8924753ecc939c45fa78ca5f3f854e213f5f01.zip tcl-eb8924753ecc939c45fa78ca5f3f854e213f5f01.tar.gz tcl-eb8924753ecc939c45fa78ca5f3f854e213f5f01.tar.bz2 |
merge 8.6, integrate branch bug-4718b41c56, rebuild win/configure, conflicts resolved (nothreads not available for 8.7)
Diffstat (limited to 'tests')
-rw-r--r-- | tests/cmdAH.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index f8ab361..9dbe832 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -21,6 +21,10 @@ catch [list package require -exact Tcltest [info patchlevel]] testConstraint testchmod [llength [info commands testchmod]] testConstraint testsetplatform [llength [info commands testsetplatform]] testConstraint testvolumetype [llength [info commands testvolumetype]] +testConstraint time64bit [expr { + $::tcl_platform(pointerSize) >= 8 || + [llength [info command testsize]] && [testsize time_t] >= 8 +}] testConstraint linkDirectory [expr { ![testConstraint win] || ($::tcl_platform(osVersion) >= 5.0 @@ -1290,6 +1294,22 @@ test cmdAH-24.14.1 { file mtime [file join [temporaryDirectory] CON.txt] } -match regexp -result {could not (?:get modification time|read)} -returnCodes error +# 3155760000 is 64-bit unix time, Wed Jan 01 00:00:00 GMT 2070: +test cmdAH-24.20.1 {Tcl_FileObjCmd: atime 64-bit time_t, bug [4718b41c56]} -constraints {time64bit} -setup { + set filename [makeFile "" foo.text] +} -body { + list [file atime $filename 3155760000] [file atime $filename] +} -cleanup { + removeFile $filename +} -result {3155760000 3155760000} +test cmdAH-24.20.2 {Tcl_FileObjCmd: mtime 64-bit time_t, bug [4718b41c56]} -constraints {time64bit} -setup { + set filename [makeFile "" foo.text] +} -body { + list [file mtime $filename 3155760000] [file mtime $filename] +} -cleanup { + file delete -force $filename +} -result {3155760000 3155760000} + # owned test cmdAH-25.1 {Tcl_FileObjCmd: owned} -returnCodes error -body { file owned a b |