summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2002-07-10 13:08:19 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2002-07-10 13:08:19 (GMT)
commitfa2b7f9795b1febf4d941721b39d19d893e14af7 (patch)
treea913c7fa3f6353050f744311a07baa111e3c17b4 /tests/fileName.test
parentb82fab03b6af98493600f93ab86254446957ffdd (diff)
downloadtcl-fa2b7f9795b1febf4d941721b39d19d893e14af7.zip
tcl-fa2b7f9795b1febf4d941721b39d19d893e14af7.tar.gz
tcl-fa2b7f9795b1febf4d941721b39d19d893e14af7.tar.bz2
Removed [exec] of Unix utilities with equivs in standard Tcl [Bug 579268]
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 13620a6..d9dd9d4 100644
--- a/tests/fileName.test
+++ b/tests/fileName.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: fileName.test,v 1.25 2002/07/08 08:50:23 vincentdarley Exp $
+# RCS: @(#) $Id: fileName.test,v 1.26 2002/07/10 13:08:20 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1701,7 +1701,7 @@ unset globname
# On some systems, like AFS, "000" protection doesn't prevent
# access by owner, so the following test is not portable.
-catch {exec chmod 000 globTest/a1}
+catch {file attributes globTest/a1 -permissions 0000}
test filename-15.1 {unix specific globbing} {unixOnly nonPortable} {
string tolower [list [catch {glob globTest/a1/*} msg] $msg $errorCode]
} {1 {couldn't read directory "globtest/a1": permission denied} {posix eacces {permission denied}}}
@@ -1715,7 +1715,7 @@ test filename-15.3 {unix specific no complain: no errors, good result} \
glob -nocomplain globTest/a2 globTest/a1/* globTest/a3
} {globTest/a2 globTest/a3}
-catch {exec chmod 755 globTest/a1}
+catch {file attributes globTest/a1 -permissions 0755}
test filename-15.4 {unix specific no complain: no errors, good result} \
{unixOnly nonPortable} {
# test fails because if an error occurs, the interp's result
@@ -1741,7 +1741,7 @@ test filename-15.6 {unix specific globbing} {unixOnly} {
set env(HOME) $temp
set result
} [list 0 [list [lindex [glob ~] 0]/globTest/odd\\\[\]*?\{\}name]]
-catch {exec rm -f globTest/odd\\\[\]*?\{\}name}
+catch {file delete -force globTest/odd\\\[\]*?\{\}name}
# The following tests are only valid for Windows systems.
set oldDir [pwd]
@@ -1818,8 +1818,8 @@ test filename-16.16 {windows specific globbing} {pcOnly} {
# cleanup
catch {file delete -force C:/globTest}
-cd $oldpwd
file delete -force globTest
+cd $oldpwd
set env(HOME) $oldhome
if {[tcltest::testConstraint testsetplatform]} {
testsetplatform $platform