summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-21 14:56:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-21 14:56:00 (GMT)
commitb49107e5e323792c06ddde8bec11d840fa7b4ff2 (patch)
treee3182c8b689488da24da5d987a7b69322784c5e6
parent23c7c728b03bf24002fde9d83f0211529388136a (diff)
downloadtcl-b49107e5e323792c06ddde8bec11d840fa7b4ff2.zip
tcl-b49107e5e323792c06ddde8bec11d840fa7b4ff2.tar.gz
tcl-b49107e5e323792c06ddde8bec11d840fa7b4ff2.tar.bz2
Tcl 8.5 doesn't have [try]
-rw-r--r--tests/fCmd.test25
1 files changed, 12 insertions, 13 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 0c51c0c..2860001 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2393,7 +2393,7 @@ test fCmd-28.12 {file link: cd into a link} -setup {
cd ..
set up [pwd]
cd $orig
- # Now '$up' should be either $orig or [file dirname abc.dir], depending on
+ # now '$up' should be either $orig or [file dirname abc.dir], depending on
# whether 'cd' actually moves to the destination of a link, or simply
# treats the link as a directory. (On windows the former, on unix the
# latter, I believe)
@@ -2528,23 +2528,17 @@ test fCmd-28.22 {file link: relative paths} -setup {
catch {file delete -force d1}
cd [workingDirectory]
} -result d2/d3
-try {
- cd [temporaryDirectory]
- file delete -force abc.link
- file delete -force d1/d2
- file delete -force d1
-} finally {
- cd [workingDirectory]
-}
-removeFile abc2.file
-removeFile abc.file
-removeDirectory abc2.dir
-removeDirectory abc.dir
test fCmd-29.1 {weird memory corruption fault} -body {
open [file join ~a_totally_bogus_user_id/foo bar]
} -returnCodes error -match glob -result *
+cd [temporaryDirectory]
+file delete -force abc.link
+file delete -force d1/d2
+file delete -force d1
+cd [workingDirectory]
+
test fCmd-30.1 {file writable on 'My Documents'} -setup {
# Get the localized version of the folder name by looking in the registry.
set mydocsname [registry get {HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders} Personal]
@@ -2567,6 +2561,11 @@ test fCmd-30.3 {file readable on 'pagefile.sys'} -constraints {win} -body {
return $r
} -result {exists 1 readable 0 stat 0 {}}
+removeFile abc2.file
+removeFile abc.file
+removeDirectory abc2.dir
+removeDirectory abc.dir
+
# cleanup
cleanup
if {[testConstraint unix]} {