Imported Upstream version 1.1.0upstream/1.1.0

3 files changed, 153 insertions, 0 deletions

diff --git a/src/pal/tests/palsuite/file_io/CopyFileA/test2/CMakeLists.txt b/src/pal/tests/palsuite/file_io/CopyFileA/test2/CMakeLists.txt
new file mode 100644
index 0000000000..7454f32f51
--- /dev/null
+++ b/src/pal/tests/palsuite/file_io/CopyFileA/test2/CMakeLists.txt
@@ -0,0 +1,19 @@
+cmake_minimum_required(VERSION 2.8.12.2)
+
+set(CMAKE_INCLUDE_CURRENT_DIR ON)
+
+set(SOURCES
+  test2.c
+)
+
+add_executable(paltest_copyfilea_test2
+  ${SOURCES}
+)
+
+add_dependencies(paltest_copyfilea_test2 coreclrpal)
+
+target_link_libraries(paltest_copyfilea_test2
+  pthread
+  m
+  coreclrpal
+)
diff --git a/src/pal/tests/palsuite/file_io/CopyFileA/test2/test2.c b/src/pal/tests/palsuite/file_io/CopyFileA/test2/test2.c
new file mode 100644
index 0000000000..56618d0a58
--- /dev/null
+++ b/src/pal/tests/palsuite/file_io/CopyFileA/test2/test2.c
@@ -0,0 +1,120 @@
+// 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:  test2.c
+**
+** Purpose: Tests the PAL implementation of the CopyFileA function
+**          to see if a file can be copied to itself
+**
+**
+**===================================================================*/
+
+
+#include <palsuite.h>
+
+int __cdecl main(int argc, char *argv[])
+{
+
+    BOOL bRc = TRUE;
+    char* szSrcExisting = "src_existing.tmp";
+    FILE* tempFile = NULL;
+    DWORD temp;
+    int retCode;
+    
+    if (0 != PAL_Initialize(argc,argv))
+    {
+        return FAIL;
+    }
+
+   /* create the src_existing file */
+    tempFile = fopen(szSrcExisting, "w");
+    if (tempFile != NULL)
+    {
+        retCode = fputs("CopyFileA test file: src_existing.tmp ", tempFile);
+        if(retCode < 0)
+        {
+            Fail("CopyFileA: ERROR-> Couldn't write to %s with error "
+                "%u.\n", szSrcExisting, GetLastError());
+        }
+        retCode = fclose(tempFile);
+        if(retCode != 0)
+        {
+            Fail("CopyFileA: ERROR-> Couldn't close file: %s with error "
+                "%u.\n", szSrcExisting, GetLastError());
+        }
+
+    }
+    else
+    {
+        Fail("CopyFileA: ERROR-> Couldn't create %s with "
+            "error %ld\n",szSrcExisting,GetLastError());
+    }
+
+    /* Get file attributes of source */
+    temp = GetFileAttributes(szSrcExisting);
+    if (temp == -1)
+    {
+        Fail("CopyFileA: GetFileAttributes of source file "
+            "failed with error code %ld. \n",
+            GetLastError());
+    }
+    
+    /* make sure a file can't copy to itself
+    first testing with IfFileExists flag set to true */
+    bRc = CopyFileA(szSrcExisting,szSrcExisting,TRUE);
+    if(bRc)
+    {
+        Fail("ERROR: Cannot copy a file to itself, %u",GetLastError());
+    }
+    
+    /* try to get file attributes of desitnation */
+    if (GetFileAttributesA(szSrcExisting) == -1)
+    {
+        Fail("CopyFileA: GetFileAttributes of destination file "
+            "failed with error code %ld. \n",
+            GetLastError());  
+    }
+    else
+    {
+        /* verify attributes of destination file to source file*/               
+     
+        if(temp != GetFileAttributes(szSrcExisting))
+        {
+            Fail("CopyFileA : The file attributes of the "
+                "destination file do not match the file "
+                "attributes of the source file.\n");
+        }
+    }
+
+    /* testing with IfFileExists flags set to false
+    should fail in Windows and pass in UNIX */
+    bRc = CopyFileA(szSrcExisting,szSrcExisting,FALSE);
+    if(bRc && (GetLastError() != ERROR_ALREADY_EXISTS))
+    {
+        Fail("ERROR: Cannot copy a file to itself, %u",GetLastError());
+    }
+    
+    if (GetFileAttributesA(szSrcExisting) == -1)
+    {
+        Fail("CopyFileA: GetFileAttributes of destination file "
+            "failed with error code %ld. \n",
+            GetLastError());
+    }
+    else
+    {
+        /* verify attributes of destination file to source file*/               
+     
+        if(temp != GetFileAttributes(szSrcExisting))
+        {
+            Fail("CopyFileA : The file attributes of the "
+                "destination file do not match the file "
+                "attributes of the source file.\n");
+        }
+    }
+
+    PAL_Terminate();
+    return PASS;
+}
diff --git a/src/pal/tests/palsuite/file_io/CopyFileA/test2/testinfo.dat b/src/pal/tests/palsuite/file_io/CopyFileA/test2/testinfo.dat
new file mode 100644
index 0000000000..31143842e6
--- /dev/null
+++ b/src/pal/tests/palsuite/file_io/CopyFileA/test2/testinfo.dat
@@ -0,0 +1,14 @@
+# 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.
+
+Version = 1.0
+Section = file_io
+Function = CopyFileA
+Name = CopyFileA - checking copying to itself (test2)
+Type = DEFAULT 
+EXE1 = test2
+Description
+= Test the CopyFileA function's behaviour
+= for copying a file to itself.
+