1 files changed, 52 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/pal_specific/PAL_get_stderr/test1/PAL_get_stderr.cpp b/src/pal/tests/palsuite/pal_specific/PAL_get_stderr/test1/PAL_get_stderr.cpp
new file mode 100644
index 0000000000..da53460101
--- /dev/null
+++ b/src/pal/tests/palsuite/pal_specific/PAL_get_stderr/test1/PAL_get_stderr.cpp
@@ -0,0 +1,52 @@
+// 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: pal_get_stderr.c
+**
+** Purpose: Positive test the PAL_get_stderr API.
+**          Call PAL_get_stderr to retrieve the PAL standard error
+**          output stream pointer.
+**          This test case should be run manually and automatically.
+**          
+
+**
+**============================================================*/
+#include <palsuite.h>
+
+int __cdecl main(int argc, char *argv[])
+{
+    int err;
+    FILE *pPAL_stderr = NULL;  
+    const char *pMsg = "\nThis is a PAL_get_stderr test message, "
+                    "not an error message!\n";
+
+    /*Initialize the PAL environment*/
+    err = PAL_Initialize(argc, argv);
+    if(0 != err)
+    {
+        return FAIL;
+    }
+
+    /*retrieve the PAL standard error output stream pointer*/
+    pPAL_stderr = PAL_get_stderr();  
+
+    if(NULL == pPAL_stderr)
+    {
+        Fail("\nFailed to call PAL_get_stderr API, error code = %u\n",
+                GetLastError());
+    }    
+    
+    /*output a test message through PAL standard error stream*/    
+    err = fputs(pMsg, pPAL_stderr);
+    if(EOF == err)
+    {
+        Fail("\nFailed to call fputs to output message to PAL stdandard "
+                "error stream, error code=%u\n", GetLastError());
+    }
+
+    PAL_Terminate();
+    return PASS;
+}