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 | b549e1996164c30e79ed1b26538b03dbdafa284a (patch) | |
| tree | 12b0857e93047f2609cc84a40a39af7c82d2ebce /tests/winFile.test | |
| parent | 05a9b0d75c5f3d0fc45c4758059e7fb26602e762 (diff) | |
| download | tcl-b549e1996164c30e79ed1b26538b03dbdafa284a.zip tcl-b549e1996164c30e79ed1b26538b03dbdafa284a.tar.gz tcl-b549e1996164c30e79ed1b26538b03dbdafa284a.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/winFile.test')
| -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 { |