* tests/fCmd.test: Run tests with the [temporaryDirectory] as

        the current directory, so that tests can depend on ability to write
        files.  [Bug 575837]

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 8034d41..db1d3e8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-10-07  Don Porter  <dgp@users.sourceforge.net>
 
+        * tests/fCmd.test:      Run tests with the [temporaryDirectory] as
+        the current directory, so that tests can depend on ability to write
+        files.  [Bug 575837]
+
         * doc/OpenFileChnl.3:   Updated Tcl_Tell and Tcl_Seek documentation
         to reflect that they now return Tcl_WideInt (TIP 72) [Bug 787537]
 
diff --git a/tests/fCmd.test b/tests/fCmd.test
index c942818..12ef859 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.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: fCmd.test,v 1.30 2003/10/06 17:27:18 dgp Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.31 2003/10/07 16:00:33 dgp Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -95,6 +95,7 @@ proc contents {file} {
     set r
 }
 
+cd [temporaryDirectory]
 set ::tcltest::testConstraints(fileSharing) 0
 set ::tcltest::testConstraints(notFileSharing) 1
 
@@ -2251,6 +2252,7 @@ test fCmd-28.3 {file link} {
 test fCmd-28.4 {file link} {
     list [catch {file link -abc b c} msg] $msg
 } {1 {bad switch "-abc": must be -symbolic or -hard}}
+cd [workingDirectory]
 
 makeDirectory abc.dir
 makeDirectory abc2.dir