From b549e1996164c30e79ed1b26538b03dbdafa284a Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 15 Dec 2016 15:18:21 +0000
Subject: Add back testcase winFile-4.10. This test passes anyway, even though
 it appeared to be Windows 2000 only.

---
 tests/winFile.test | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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 {
-- 
cgit v0.12