1 files changed, 94 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/filemapping_memmgt/ProbeMemory/test1/ProbeMemory.cpp b/src/pal/tests/palsuite/filemapping_memmgt/ProbeMemory/test1/ProbeMemory.cpp
new file mode 100644
index 0000000000..30b358d315
--- /dev/null
+++ b/src/pal/tests/palsuite/filemapping_memmgt/ProbeMemory/test1/ProbeMemory.cpp
@@ -0,0 +1,94 @@
+// 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: ReadProcessMemory.c
+**
+** Purpose: Positive test the ReadProcessMemory API.
+**          Call ReadProcessMemory to read memory contents
+**          inside current process.
+**
+**
+**============================================================*/
+#include <palsuite.h>
+
+#define REGIONSIZE 1024
+
+int __cdecl main(int argc, char *argv[])
+{
+    int err;
+    BOOL bResult;
+    LPVOID lpProcessAddress = NULL;
+
+    /*Initialize the PAL environment*/
+    err = PAL_Initialize(argc, argv);
+    if(0 != err)
+    {
+       return FAIL;
+    }
+    
+    /*allocate the virtual memory*/
+    lpProcessAddress = VirtualAlloc(
+            NULL,            /*system determine where to allocate the region*/
+            REGIONSIZE,      /*specify the size*/
+            MEM_COMMIT,      /*allocation type*/
+            PAGE_READWRITE); /*access protection*/
+
+    if(NULL == lpProcessAddress)
+    {
+        Fail("\nFailed to call VirtualAlloc API to allocate "
+                "virtual memory, error code=%u!\n", GetLastError());
+    }
+
+    /*probe the memory for read*/
+    bResult = PAL_ProbeMemory(
+            lpProcessAddress,      /*base of memory area*/
+            REGIONSIZE,            /*buffer length in bytes*/
+            FALSE);                /*read access*/
+
+    if(!bResult)
+    {
+        Trace("\nProbeMemory for read access FAILED\n");
+
+        /*decommit the specified region*/
+        err = VirtualFree(lpProcessAddress, REGIONSIZE, MEM_DECOMMIT);
+        if(0 == err)
+        {
+            Fail("\nFailed to call VirtualFree API, error code=%u\n", GetLastError());
+        }
+
+        Fail("");
+    }
+
+    /*probe the memory for write */
+    bResult = PAL_ProbeMemory(
+            lpProcessAddress,      /*base of memory area*/
+            REGIONSIZE,            /*buffer length in bytes*/
+            TRUE);                 /*write access*/
+
+    if(!bResult)
+    {
+        Trace("\nProbeMemory for write access FAILED\n");
+
+        /*decommit the specified region*/
+        err = VirtualFree(lpProcessAddress, REGIONSIZE, MEM_DECOMMIT);
+        if(0 == err)
+        {
+            Fail("\nFailed to call VirtualFree API, error code=%u\n", GetLastError());
+        }
+
+        Fail("");
+    }
+
+    /*decommit the specified region*/
+    err = VirtualFree(lpProcessAddress, REGIONSIZE, MEM_DECOMMIT);
+    if(0 == err)
+    {
+        Fail("\nFailed to call VirtualFree API, error code=%u\n", GetLastError());
+    }
+
+    PAL_Terminate();
+    return PASS;
+}