1 files changed, 180 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/file_io/CopyFileA/test4/test4.c b/src/pal/tests/palsuite/file_io/CopyFileA/test4/test4.c
new file mode 100644
index 0000000000..1ae69f5e1f
--- /dev/null
+++ b/src/pal/tests/palsuite/file_io/CopyFileA/test4/test4.c
@@ -0,0 +1,180 @@
+// Licensed to the .NET Foundation under one or more agreements.
+// The .NET Foundation licenses this file to you under the MIT license.
+// See the LICENSE file in the project root for more information.
+
+/*=====================================================================
+**
+** Source:  test4.c
+**
+** Purpose: Tests the PAL implementation of the CopyFileA function
+**          to see if a file can through different users belonging to 
+**          different groups.
+**
+
+=====================================================================*/
+
+/* USECASE
+    Copy a file from a different user, belonging to a different group to
+    the the current user, who is a member of the current group.  Then check
+    to see that the current user has the basic access rights to the copied
+    file.
+
+    Thie original file used is the passwd file in the etc directory of a
+    BSD machine.  This file should exist on all machines.
+*/
+
+#include <palsuite.h>
+
+int __cdecl main(int argc, char *argv[])
+{
+
+#if WIN32
+    return PASS;
+
+#else
+
+    BOOL bRc = TRUE;
+    char* szSrcExisting = "/etc/passwd";
+    char* szDest = "temp.tmp";
+    char* szStringTest = "Marry had a little lamb";
+    char szStringRead[30]; /* large enough for string szStringTest */
+
+    HANDLE hFile = NULL;
+    DWORD dwBytesWritten=0;
+    DWORD dwBytesRead=0;
+    
+    if (0 != PAL_Initialize(argc,argv))
+    {
+        return FAIL;
+    }
+
+    /* copy the file */
+    bRc = CopyFileA(szSrcExisting,szDest,TRUE);
+    if(!bRc)
+    {
+        Fail("CopyFileA: Cannot copy a file with error, %u",GetLastError());
+    }
+    
+    /* try to get file attributes of destination file */
+    if (GetFileAttributesA(szDest) == -1)
+    {
+        Fail("CopyFileA: GetFileAttributes of destination file "
+            "failed with error code %u. \n",
+            GetLastError());  
+    }
+
+    /* set the attributes of the destination file to normal again */
+    bRc = SetFileAttributes(szDest, FILE_ATTRIBUTE_NORMAL);
+    if(!bRc)
+    {
+        Fail("CopyFileA: ERROR-> Couldn't set file attributes for "
+            "file %s with error %u\n", szDest, GetLastError());
+    }
+
+    /* open the file for write purposes */
+    hFile = CreateFile(szDest, 
+        GENERIC_WRITE,
+        0,
+        NULL,
+        OPEN_EXISTING,
+        FILE_ATTRIBUTE_NORMAL,
+        NULL);
+
+    if(hFile == INVALID_HANDLE_VALUE)
+    {
+        Fail("CopyFileA: ERROR -> Unable to create file \"%s\".\n", 
+            szDest);
+    }
+
+    /* Attempt to write to the file */
+    bRc = WriteFile(hFile, szStringTest, strlen(szStringTest), &dwBytesWritten, NULL);
+    if (!bRc)
+    {
+        Trace("CopyFileA: ERROR -> Unable to write to copied file with error "
+            "%u.\n", GetLastError());
+        bRc = CloseHandle(hFile);
+        if (!bRc)
+        {
+            Fail("CopyFileA: ERROR -> Unable to close file \"%s\" with "
+                "error %u.\n",szDest, GetLastError());
+        }
+        Fail("");
+
+    }
+
+    /* Close the file handle */
+    bRc = CloseHandle(hFile);
+    if (!bRc)
+    {
+        Fail("CopyFileA: ERROR -> Unable to close file \"%s\" with error %u "
+            ".\n",szDest,GetLastError());
+    }
+
+ 
+    /* open the file for read purposes */
+    hFile = CreateFile(szDest, 
+        GENERIC_READ,
+        0,
+        NULL,
+        OPEN_EXISTING,
+        FILE_ATTRIBUTE_NORMAL,
+        NULL);
+
+    if(hFile == INVALID_HANDLE_VALUE)
+    {
+        Fail("CopyFileA: ERROR -> Unable to create file \"%s\".\n", 
+            szDest);
+    }
+
+    /* Attempt to read from the file */
+    bRc = ReadFile(hFile, szStringRead, strlen(szStringTest), &dwBytesRead, NULL);
+    if (!bRc)
+    {
+        Trace("CopyFileA: ERROR -> Unable to read from copied file with "
+            "error %u.\n",GetLastError());
+        bRc = CloseHandle(hFile);
+        if (!bRc)
+        {
+            Fail("CopyFileA: ERROR -> Unable to close file \"%s\" with "
+                "error %u.\n",szDest, GetLastError());
+        }
+        Fail("");
+
+    }
+
+    if(strncmp(szStringTest,szStringRead, strlen(szStringTest)) != 0)
+    {
+        Trace("CopyFileA: ERROR -> The string which was written '%s' does not "
+            "match the string '%s' which was read from the copied file.\n",
+            szStringTest,szStringRead);
+        bRc = CloseHandle(hFile);
+        if (!bRc)
+        {
+            Fail("CopyFileA: ERROR -> Unable to close file \"%s\" with "
+                "error %u.\n",szDest, GetLastError());
+        }
+        Fail("");
+    }        
+
+    /* Close the file handle */
+    bRc = CloseHandle(hFile);
+    if (!bRc)
+    {
+        Fail("CopyFileA: ERROR -> Unable to close file \"%s\" with error %u "
+            ".\n",szDest,GetLastError());
+    }
+
+    /* Remove the temporary file */
+    bRc = DeleteFile(szDest);
+    if(!bRc)
+    {
+        Fail("CopyFileA: Could not remove copied file with error %u\n",
+            GetLastError());
+    }  
+  
+    PAL_Terminate();
+    return PASS;
+
+#endif
+    
+}