summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/cmdAH.test16
2 files changed, 18 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 7a40fc8..b5ca1b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-21 Vince Darley <vincentdarley@users.sourceforge.net>
+
+ * test/cmdAH.test: ensure certain tests run in local filesystem
+ [Bug 748960]
+
2003-07-18 Daniel Steffen <das@users.sourceforge.net>
* macosx/Makefile: added option to allow installing manpages
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 2c142ae..31c2cb9 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: cmdAH.test,v 1.34 2003/07/04 13:04:12 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.35 2003/07/21 10:24:25 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -1186,7 +1186,12 @@ catch {file attributes $gorpfile -permissions 0765}
# atime
-set file [makeFile "data" touch.me]
+# avoid problems with non-local filesystems
+if {$::tcl_platform(platform) == "unix" && [file exists /tmp]} {
+ set file [makeFile "data" touch.me /tmp]
+} else {
+ set file [makeFile "data" touch.me]
+}
test cmdAH-20.1 {Tcl_FileObjCmd: atime} {
list [catch {file atime a b c} msg] $msg
@@ -1228,7 +1233,12 @@ test cmdAH-20.6 {Tcl_FileObjCmd: atime touch} {winOnly testvolumetype} {
expr {$newatime == $modatime ? 1 : "$newatime != $modatime"}
} 1
-removeFile touch.me
+if {$::tcl_platform(platform) == "unix" && [file exists /tmp]} {
+ removeFile touch.me /tmp
+} else {
+ removeFile touch.me
+}
+
# isdirectory
test cmdAH-21.1 {Tcl_FileObjCmd: isdirectory} {