diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-11 08:25:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2002-07-11 08:25:23 (GMT) |
| commit | 513225dbd0f8f31a43f1530acf43d710d876e31a (patch) | |
| tree | 3307ceed139b0751dee8838078d02f7fbdf8c164 /tests | |
| parent | 8a6b2a44507dbb5a40167594764ca667c687edab (diff) | |
| download | tcl-513225dbd0f8f31a43f1530acf43d710d876e31a.zip tcl-513225dbd0f8f31a43f1530acf43d710d876e31a.tar.gz tcl-513225dbd0f8f31a43f1530acf43d710d876e31a.tar.bz2 | |
[file attributes -permissions] is Unix-only; [catch] it for portability
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cmdAH.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 0c675cc..51667fb 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.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: cmdAH.test,v 1.28 2002/07/10 10:48:20 dkf Exp $ +# RCS: @(#) $Id: cmdAH.test,v 1.29 2002/07/11 08:25:24 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -1171,7 +1171,7 @@ test cmdAH-19.11 {Tcl_FileObjCmd: exists} {unixOnly notRoot} { catch {testsetplatform $platform} removeFile $gorpfile set gorpfile [makeFile "Test string" gorp.file] -file attributes $gorpfile -permissions 0765 +catch {file attributes $gorpfile -permissions 0765} # atime @@ -1427,7 +1427,7 @@ test cmdAH-27.3 {Tcl_FileObjCmd: size} { catch {testsetplatform $platform} removeFile $gorpfile set gorpfile [makeFile "Test string" gorp.file] -file attributes $gorpfile -permissions 0765 +catch {file attributes $gorpfile -permissions 0765} test cmdAH-28.1 {Tcl_FileObjCmd: stat} { list [catch {file stat _bogus_} msg] $msg $errorCode @@ -1668,7 +1668,7 @@ catch {unset platform} # Tcl_ForObjCmd is tested in for.test -file attributes $dirfile -permissions 0777 +catch {file attributes $dirfile -permissions 0777} removeDirectory $dirfile removeFile $gorpfile # No idea how well [removeFile] copes with links... |