From 5c9ed68a7bcb05c86b7e900e7c7e34f9852e4dde Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 7 Oct 2003 16:00:22 +0000 Subject: * tests/fCmd.test: Run tests with the [temporaryDirectory] as the current directory, so that tests can depend on ability to write files. [Bug 575837] --- ChangeLog | 4 ++++ tests/fCmd.test | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 8034d41..db1d3e8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2003-10-07 Don Porter + * 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 -- cgit v0.12