diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-05 10:38:42 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-05 10:38:42 (GMT) |
| commit | a407e1e0a4496d94823146e2bacf89ba0d5634f5 (patch) | |
| tree | baa4c102aff8ec62a52114ea6ce1cacb8237f8c7 /tests/unixFCmd.test | |
| parent | c8b71f046baf06c64c0bb2e7c5c295b0fc742f5e (diff) | |
| download | tcl-a407e1e0a4496d94823146e2bacf89ba0d5634f5.zip tcl-a407e1e0a4496d94823146e2bacf89ba0d5634f5.tar.gz tcl-a407e1e0a4496d94823146e2bacf89ba0d5634f5.tar.bz2 | |
Made many tests work properly when the current directory is not writable.
Added targets to unix/Makefile.in to facilitate testing of this situation.
Diffstat (limited to 'tests/unixFCmd.test')
| -rw-r--r-- | tests/unixFCmd.test | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index d2d8f9d..8cccb51 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -9,13 +9,18 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixFCmd.test,v 1.12 2001/07/31 19:12:07 vincentdarley Exp $ +# RCS: @(#) $Id: unixFCmd.test,v 1.13 2002/07/05 10:38:43 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import -force ::tcltest::* } +# These tests really need to be run from a writable directory, which +# it is assumed [temporaryDirectory] is. +set oldcwd [pwd] +cd [temporaryDirectory] + # Several tests require need to match results against the unix username set user {} if {$tcl_platform(platform) == "unix"} { @@ -312,17 +317,6 @@ test unixFCmd-18.1 {Unix pwd} {nonPortable unixOnly notRoot} { # cleanup cleanup +cd $oldcwd ::tcltest::cleanupTests return - - - - - - - - - - - - |