Imported Upstream version 1.0.0.9127upstream/1.0.0.9127

1 files changed, 53 insertions, 0 deletions

diff --git a/src/pal/tests/palsuite/miscellaneous/FreeEnvironmentStringsW/test1/test.cpp b/src/pal/tests/palsuite/miscellaneous/FreeEnvironmentStringsW/test1/test.cpp
new file mode 100644
index 0000000000..56010039d7
--- /dev/null
+++ b/src/pal/tests/palsuite/miscellaneous/FreeEnvironmentStringsW/test1/test.cpp
@@ -0,0 +1,53 @@
+// 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: test.c
+**
+** Purpose: Test for FreeEnvironmentStringsW() function
+**
+**
+**=========================================================*/
+
+#define UNICODE
+#include <palsuite.h>
+
+int __cdecl main(int argc, char *argv[]) 
+{
+
+    LPWSTR CapturedEnvironment = NULL;
+    BOOL TheResult = 0;
+  
+    /*
+     * Initialize the PAL and return FAILURE if this fails
+     */
+
+    if(0 != (PAL_Initialize(argc, argv)))
+    {
+        return FAIL;
+    }
+ 
+    CapturedEnvironment = GetEnvironmentStrings();
+
+    /* If it's pointing to NULL, it failed. This checks the dependency */
+    if(CapturedEnvironment == NULL) {
+        Fail("The function GetEnvironmentStrings() failed, and the "
+             "FreeEnvironmentStrings() tests is dependant on it.\n");    
+    }
+
+    /* This should return 1, if it succeeds, otherwise, test fails */
+    TheResult = FreeEnvironmentStrings(CapturedEnvironment);
+    if(TheResult != 1) {
+        Fail("The function returned %d which indicates failure to Free the "
+             "Environment Strings.\n",TheResult);
+    }
+  
+    
+    PAL_Terminate();
+    return PASS;
+}
+
+
+