1 files changed, 125 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/threading/SetEvent/test2/test2.c b/src/pal/tests/palsuite/threading/SetEvent/test2/test2.c
new file mode 100644
index 0000000000..5fd2833957
--- /dev/null
+++ b/src/pal/tests/palsuite/threading/SetEvent/test2/test2.c
@@ -0,0 +1,125 @@
+// 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
+**
+** Dependencies: PAL_Initialize
+**               PAL_Terminate
+**               CreateEvent
+**               CloseHandle
+**               WaitForSingleObject
+**
+** Purpose:
+**
+** Test to ensure proper operation of the SetEvent()
+** API by calling it on an event handle that's already set.
+** 
+
+**
+**===========================================================================*/
+#include <palsuite.h>
+
+
+
+int __cdecl main( int argc, char **argv ) 
+
+{
+    /* local variables */
+    DWORD                   dwRet = 0;
+    HANDLE                  hEvent = NULL;
+    LPSECURITY_ATTRIBUTES   lpEventAttributes = NULL;
+    BOOL                    bManualReset = TRUE; 
+    BOOL                    bInitialState = FALSE;
+
+
+    /* PAL initialization */
+    if( (PAL_Initialize(argc, argv)) != 0 )
+    {
+        return( FAIL );
+    }
+
+
+    /* create an event which we can use with SetEvent */
+    hEvent = CreateEvent(   lpEventAttributes, 
+                            bManualReset,
+                            bInitialState,
+                            NULL );
+
+    if( hEvent == INVALID_HANDLE_VALUE )
+    {
+        /* ERROR */
+        Fail( "ERROR:%lu:CreateEvent() call failed\n", GetLastError() );
+    }
+    
+    /* verify that the event isn't signalled yet */
+    dwRet = WaitForSingleObject( hEvent, 0 );
+    if( dwRet != WAIT_TIMEOUT )
+    {
+        /* ERROR */
+        Trace( "ERROR:WaitForSingleObject() call returned %lu, "
+                "expected WAIT_TIMEOUT\n",
+                dwRet );
+        CloseHandle( hEvent );
+        Fail( "Test failed\n" );
+    }
+    
+    /* set the event */
+    if( ! SetEvent( hEvent ) )
+    {
+        /* ERROR */
+        Trace( "ERROR:%lu:SetEvent() call failed\n", GetLastError() );
+        CloseHandle( hEvent );
+        Fail( "Test failed\n" );
+    }
+    
+    /* verify that the event is signalled */
+    dwRet = WaitForSingleObject( hEvent, 0 );
+    if( dwRet != WAIT_OBJECT_0 )
+    {
+        /* ERROR */
+        Trace( "ERROR:WaitForSingleObject() call returned %lu, "
+                "expected WAIT_OBJECT_0\n",
+                dwRet );
+        CloseHandle( hEvent );
+        Fail( "Test failed\n" );
+    }
+    
+    /* try to set the event again */
+    if( ! SetEvent( hEvent ) )
+    {
+        /* ERROR */
+        Trace( "FAIL:%lu:SetEvent() call failed on signalled event\n",
+                GetLastError() );
+        CloseHandle( hEvent );
+        Fail( "Test failed\n" );
+    }
+    
+    /* verify that the event is still signalled */
+    dwRet = WaitForSingleObject( hEvent, 0 );
+    if( dwRet != WAIT_OBJECT_0 )
+    {
+        /* ERROR */
+        Trace( "ERROR:WaitForSingleObject() call returned %lu, "
+                "expected WAIT_OBJECT_0\n",
+                dwRet );
+        CloseHandle( hEvent );
+        Fail( "Test failed\n" );
+    }
+    
+
+    /* close the event handle */
+    if( ! CloseHandle( hEvent ) )
+    {
+        Fail( "ERROR:%lu:CloseHandle() call failed\n", GetLastError() );
+    }
+
+    
+    /* PAL termination */
+    PAL_Terminate();
+    
+    /* return success */
+    return PASS;
+}