1 files changed, 95 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/threading/CreateEventA/test1/test1.cpp b/src/pal/tests/palsuite/threading/CreateEventA/test1/test1.cpp
new file mode 100644
index 0000000000..d8ef0f58a3
--- /dev/null
+++ b/src/pal/tests/palsuite/threading/CreateEventA/test1/test1.cpp
@@ -0,0 +1,95 @@
+// 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: test1.c 
+**
+** Purpose: Test for CreateEvent.  Create an event, ensure the 
+** HANDLE is valid.  Then check to ensure that the object is in the 
+** signaled state.  Close the HANDLE and done.
+**
+**
+**=========================================================*/
+
+/*
+  Note:  From the rotor_pal documentation:
+
+  lpEventAttributes will always be NULL, bManualReset can be either
+  TRUE or FALSE, bInitialState can be either TRUE or FALSE, the lpName
+  may be non-NULL
+
+*/
+
+
+#include <palsuite.h>
+
+BOOL CreateEventTest()
+{
+    BOOL bRet = FALSE;
+    DWORD dwRet = 0;
+
+    LPSECURITY_ATTRIBUTES lpEventAttributes = NULL;
+    BOOL bManualReset = TRUE; 
+    BOOL bInitialState = TRUE;
+
+    /* Call CreateEvent, and check to ensure the returned HANDLE is a
+       valid event HANDLE
+    */
+    
+    HANDLE hEvent = CreateEvent( lpEventAttributes, 
+                                 bManualReset, 
+                                 bInitialState, 
+                                 NULL); 
+ 
+    if (hEvent != NULL)
+    {
+        /* Wait for the Object (for 0 time) and ensure that it returns
+           the value indicating that the event is signaled.
+        */
+        dwRet = WaitForSingleObject(hEvent,0);
+
+        if (dwRet != WAIT_OBJECT_0)
+        {
+            Trace("CreateEventTest:WaitForSingleObject failed (%x)\n", GetLastError());
+        }
+        else
+        {
+            /* If we make it here, and CloseHandle succeeds, then the
+               entire test has passed.  Otherwise bRet will still show
+               failure
+            */
+            bRet = CloseHandle(hEvent);
+
+            if (!bRet)
+            {
+                Trace("CreateEventTest:CloseHandle failed (%x)\n", GetLastError());
+            }           
+        }
+    }
+    else
+    {
+        Trace("CreateEventTest:CreateEvent failed (%x)\n", GetLastError());
+    }
+    
+    return bRet;
+}
+
+int __cdecl main(int argc, char **argv)
+{
+    
+    if(0 != (PAL_Initialize(argc, argv)))
+    {
+        return ( FAIL );
+    }
+    
+    if(!CreateEventTest())
+    {
+        Fail ("Test failed\n");
+    }
+ 
+    PAL_Terminate();
+    return ( PASS );
+
+}