summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-21 14:45:09 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-03-21 14:45:09 (GMT)
commitaed151c9c9606069f431cb171d41999c077dd308 (patch)
treea50b6e5ad5c8730d938810f52c708ac587723946
parent90efdfa271eca81c4e9e7fc41b03c290933f1844 (diff)
downloadtcl-aed151c9c9606069f431cb171d41999c077dd308.zip
tcl-aed151c9c9606069f431cb171d41999c077dd308.tar.gz
tcl-aed151c9c9606069f431cb171d41999c077dd308.tar.bz2
Remove duplicated tests. The enhancements to fCmd-30.[12] and the new test case fCmd-30.3 were backported from Tcl8.6, but the original tests were not removed.
-rw-r--r--tests/fCmd.test23
1 files changed, 1 insertions, 22 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test
index 29447f0..8f27ad4 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -2599,28 +2599,7 @@ test fCmd-30.3 {file readable on 'pagefile.sys'} -constraints {win} -body {
}
return $r
} -result {exists 1 readable 0 stat 0 {}}
-
-test fCmd-30.4 {file writable on 'My Documents'} -constraints {win 2000orNewer} -body {
- set mydocsname "~/My Documents"
- # Would be good to localise this name, since this test will only function
- # on english-speaking windows otherwise
- if {[file exists $mydocsname]} {
- return [file writable $mydocsname]
- }
- return 1
-} -result {1}
-test fCmd-30.5 {file readable on 'NTUSER.DAT'} -constraints {win 2000orNewer knownBug} -body {
- # Apparently the OS has this file open with exclusive permissions Windows
- # doesn't provide any way to determine that fact without actually trying
- # to open the file (open NTUSER.dat r), which fails. Hence this isn't
- # really a knownBug in Tcl, but an OS limitation. But, perhaps in the
- # future that limitation will be lifted.
- if {[file exists "~/NTUSER.DAT"]} {
- return [file readable "~/NTUSER.DAT"]
- }
- return 0
-} -result {0}
-
+
# cleanup
cleanup
if {[testConstraint unix]} {