summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-10-07 15:57:36 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-10-07 15:57:36 (GMT)
commit3b21dd18dca159cc96a291b3591e9526460646de (patch)
tree8d149415320074a69833e9ddf23426c5dad2a017 /tests
parente100b43202b4173582eb9825c987c53bd0a85c2a (diff)
downloadtcl-3b21dd18dca159cc96a291b3591e9526460646de.zip
tcl-3b21dd18dca159cc96a291b3591e9526460646de.tar.gz
tcl-3b21dd18dca159cc96a291b3591e9526460646de.tar.bz2
* tests/fCmd.test: Run tests with the [temporaryDirectory] as
the current directory, so that tests can depend on ability to write files. [Bug 575837]
Diffstat (limited to 'tests')
-rw-r--r--tests/fCmd.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index cc293f4..0b1de7e 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.26.2.3 2003/10/06 17:27:00 dgp Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.26.2.4 2003/10/07 15:57:36 dgp Exp $
#
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -95,6 +95,8 @@ proc contents {file} {
set r
}
+cd [temporaryDirectory]
+
set ::tcltest::testConstraints(fileSharing) 0
set ::tcltest::testConstraints(notFileSharing) 1
@@ -2225,6 +2227,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