From 1785094f197999e5ca4392a5da228a31484c852e Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 21 Jul 2003 10:24:24 +0000
Subject: test suite on afs fix

---
 ChangeLog        |  5 +++++
 tests/cmdAH.test | 16 +++++++++++++---
 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} {
-- 
cgit v0.12