summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-15 15:18:21 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-12-15 15:18:21 (GMT)
commit028b343b32bc4726f0105e37806be745bdabfd67 (patch)
tree12b0857e93047f2609cc84a40a39af7c82d2ebce
parent5eeecf6181bb38bb87f5d2443489e5dfc875e7a9 (diff)
downloadtcl-028b343b32bc4726f0105e37806be745bdabfd67.zip
tcl-028b343b32bc4726f0105e37806be745bdabfd67.tar.gz
tcl-028b343b32bc4726f0105e37806be745bdabfd67.tar.bz2
Add back testcase winFile-4.10. This test passes anyway, even though it appeared to be Windows 2000 only.
-rw-r--r--tests/winFile.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/winFile.test b/tests/winFile.test
index 0020d6f..b2cdfa1 100644
--- a/tests/winFile.test
+++ b/tests/winFile.test
@@ -147,6 +147,21 @@ if {[testConstraint win]} {
close [open $fname w]
}
+test winFile-4.0 {
+ Enhanced NTFS user/group permissions: test no acccess
+} -constraints {
+ win notNTFS
+} -setup {
+ set owner [getuser $fname]
+ set user $::env(USERDOMAIN)\\$::env(USERNAME)
+} -body {
+ # Clean out all well-known ACLs
+ catch {cacls $fname /E /R "Everyone"} result
+ catch {cacls $fname /E /R $user} result
+ catch {cacls $fname /E /R $owner} result
+ cacls $fname /E /P $user:N
+ test_access $fname 0 0
+} -result {}
test winFile-4.1 {
Enhanced NTFS user/group permissions: test readable only
} -constraints {