diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-10-07 15:57:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-10-07 15:57:36 (GMT) |
| commit | c201298334eaeebdef383d67720344fdc66b621c (patch) | |
| tree | 8d149415320074a69833e9ddf23426c5dad2a017 /tests/fCmd.test | |
| parent | 3c40ceab01d1338ebab29c08a39dc2d0ba5f3d7a (diff) | |
| download | tcl-c201298334eaeebdef383d67720344fdc66b621c.zip tcl-c201298334eaeebdef383d67720344fdc66b621c.tar.gz tcl-c201298334eaeebdef383d67720344fdc66b621c.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/fCmd.test')
| -rw-r--r-- | tests/fCmd.test | 5 |
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 |