Imported Upstream version 1.1.0upstream/1.1.0

3 files changed, 112 insertions, 0 deletions

diff --git a/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/CMakeLists.txt b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/CMakeLists.txt
new file mode 100644
index 0000000000..ae3ee8ddf6
--- /dev/null
+++ b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/CMakeLists.txt
@@ -0,0 +1,19 @@
+cmake_minimum_required(VERSION 2.8.12.2)
+
+set(CMAKE_INCLUDE_CURRENT_DIR ON)
+
+set(SOURCES
+  createfilemapping.c
+)
+
+add_executable(paltest_createfilemappinga_test8
+  ${SOURCES}
+)
+
+add_dependencies(paltest_createfilemappinga_test8 coreclrpal)
+
+target_link_libraries(paltest_createfilemappinga_test8
+  pthread
+  m
+  coreclrpal
+)
diff --git a/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/createfilemapping.c b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/createfilemapping.c
new file mode 100644
index 0000000000..02b2fb5e61
--- /dev/null
+++ b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/createfilemapping.c
@@ -0,0 +1,79 @@
+// 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:  createfilemapping.c (test 8)
+**
+** Purpose: Positive test the CreateFileMapping API.
+**          Test the un-verifiable parameter combinations.
+**
+**
+**============================================================*/
+#include <palsuite.h>
+
+const   int MAPPINGSIZE = 2048;
+HANDLE  SWAP_HANDLE     = ((VOID *)(-1));
+
+int __cdecl main(int argc, char *argv[])
+{
+    HANDLE  hFileMap;
+
+    /* Initialize the PAL environment.
+     */
+    if(0 != PAL_Initialize(argc, argv))
+    {
+        return FAIL;
+    }
+
+    /* Create a READONLY, "swap", un-named file mapping.
+     * This test is unverifiable since there is no hook back to the file map
+     * because it is un-named. As well, since it resides in "swap", and is
+     * initialized to zero, there is nothing to read.
+     */
+    hFileMap = CreateFileMapping(
+                            SWAP_HANDLE,
+                            NULL,               /*not inherited*/
+                            PAGE_READONLY,      /*read only*/
+                            0,                  /*high-order size*/
+                            MAPPINGSIZE,        /*low-order size*/
+                            NULL);              /*un-named object*/
+
+    if(NULL == hFileMap)
+    {
+        Fail("ERROR:%u: Failed to create File Mapping.\n", 
+              GetLastError());
+    }
+
+    
+    /* Create a COPYWRITE, "swap", un-named file mapping.
+     * This test is unverifiable, here is a quote from MSDN:
+     * 
+     * Copy on write access. If you create the map with PAGE_WRITECOPY and 
+     * the view with FILE_MAP_COPY, you will receive a view to file. If you 
+     * write to it, the pages are automatically swappable and the modifications
+     * you make will not go to the original data file. 
+     *
+     */
+    hFileMap = CreateFileMapping(
+                            SWAP_HANDLE,
+                            NULL,               /*not inherited*/
+                            PAGE_WRITECOPY,      /*read only*/
+                            0,                  /*high-order size*/
+                            MAPPINGSIZE,        /*low-order size*/
+                            NULL);              /*unnamed object*/
+
+    if(NULL == hFileMap)
+    {
+        Fail("ERROR:%u: Failed to create File Mapping.\n", 
+              GetLastError());
+    }
+
+
+    /* Terminate the PAL.
+     */ 
+    PAL_Terminate();
+    return PASS;
+}
+
diff --git a/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/testinfo.dat b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/testinfo.dat
new file mode 100644
index 0000000000..ebe138f659
--- /dev/null
+++ b/src/pal/tests/palsuite/filemapping_memmgt/CreateFileMappingA/test8/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 = Filemapping_memmgt
+Function = CreateFileMapping
+Name = CreateFileMappingA - unnamed swap, READWRITE.
+TYPE = DEFAULT
+EXE1 = createfilemapping
+Description
+= Positive test the CreateFileMapping API.
+= Test an unnamed File Mapping to a "swap" 
+= handle with access PAGE_READWRITE.