diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-15 15:18:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-15 15:18:21 (GMT) |
| commit | 028b343b32bc4726f0105e37806be745bdabfd67 (patch) | |
| tree | 12b0857e93047f2609cc84a40a39af7c82d2ebce /tests | |
| parent | 5eeecf6181bb38bb87f5d2443489e5dfc875e7a9 (diff) | |
| download | tcl-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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/winFile.test | 15 |
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 { |