diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 08:37:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-01 08:37:53 (GMT) |
| commit | 75b8ba1fa3fb38788f5bfe55549bed45e75851fc (patch) | |
| tree | e3bfa544a1dcc98b885fe39a1fe300fedf52cbcb /tests/cmdAH.test | |
| parent | 62c64586b62f23ff1c769bc9a0a3c44e9d0adc5d (diff) | |
| parent | 6dbc78452d57629467b29add83eef5ba6eebc222 (diff) | |
| download | tcl-75b8ba1fa3fb38788f5bfe55549bed45e75851fc.zip tcl-75b8ba1fa3fb38788f5bfe55549bed45e75851fc.tar.gz tcl-75b8ba1fa3fb38788f5bfe55549bed45e75851fc.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 3d8f4f5..588dce1 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -21,12 +21,12 @@ 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 1 testConstraint linkDirectory [expr { ![testConstraint win] || ($::tcl_platform(osVersion) >= 5.0 && [lindex [file system [temporaryDirectory]] 1] eq "NTFS") }] +testConstraint knownMsvcBug [expr {![info exists ::env(TRAVIS_OS_NAME)] || ![string match windows $::env(TRAVIS_OS_NAME)]}] global env set cmdAHwd [pwd] @@ -1290,14 +1290,14 @@ test cmdAH-24.14.1 { } -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 { +test cmdAH-24.20.1 {Tcl_FileObjCmd: atime 64-bit time_t, bug [4718b41c56]} -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 { +test cmdAH-24.20.2 {Tcl_FileObjCmd: mtime 64-bit time_t, bug [4718b41c56]} -setup { set filename [makeFile "" foo.text] } -body { list [file mtime $filename 3155760000] [file mtime $filename] @@ -1323,7 +1323,7 @@ test cmdAH-25.2.1 {Tcl_FileObjCmd: owned} -constraints unix -setup { test cmdAH-25.3 {Tcl_FileObjCmd: owned} {unix notRoot} { file owned / } 0 -test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints win -body { +test cmdAH-25.3.1 {Tcl_FileObjCmd: owned} -constraints {win knownMsvcBug} -body { file owned $env(windir) } -result 0 test cmdAH-25.4 {Tcl_FileObjCmd: owned} -body { |