1 files changed, 78 insertions, 0 deletions
diff --git a/src/pal/tests/palsuite/c_runtime/getenv/test1/test1.cpp b/src/pal/tests/palsuite/c_runtime/getenv/test1/test1.cpp
new file mode 100644
index 0000000000..0fb9025c8f
--- /dev/null
+++ b/src/pal/tests/palsuite/c_runtime/getenv/test1/test1.cpp
@@ -0,0 +1,78 @@
+// 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: Create an environment variable and then use getenv to get
+** a pointer to it.  Check that the pointer is valid and that the string
+** is what we expected.  Also check that searching for a non-existent 
+** variable will cause getenv to return NULL. Also check that function
+** passes when the parameter has it's casing changed (e.g upper case)
+**
+**
+**===================================================================*/
+
+#include <palsuite.h>
+
+int __cdecl main(int argc, char **argv)
+{
+
+    const char* SetVariable = "PalTestingEnvironmentVariable=The value";
+    const char* VariableName = "PalTestingEnvironmentVariable";
+    const char* VariableValue = "The value";
+    char* result;
+
+   
+    if (0 != (PAL_Initialize(argc, argv)))
+    {
+        return FAIL;
+    }
+    
+    /* Use _putenv to set an environment variable.  This ensures that the
+       variable we're testing on is always present.
+    */
+
+    if(_putenv(SetVariable) == -1)
+    {
+        Fail("ERROR: _putenv failed to set an environment variable that "
+             "getenv will be using for testing.\n");
+    }
+
+    /* Call getenv -- ensure it doesn't return NULL and the string it returns
+       is the value we set above.
+    */
+    
+    result = getenv(VariableName);
+    if(result == NULL)
+    {
+        Fail("ERROR: The result of getenv on a valid Environment Variable "
+             "was NULL, which indicates the environment varaible was not "
+             "found.\n");
+    }
+
+    if(strcmp(result, VariableValue) != 0)
+    {
+        Fail("ERROR: The value obtained by getenv() was not equal to the "
+             "correct value of the environment variable.  The correct "
+             "value is '%s' and the function returned '%s'.\n",
+             VariableValue,
+             result);
+    }
+    
+    /* Try calling getenv on an environment variable which doesn't 
+       exist.
+    */
+    result = getenv("SomeEnvironmentVariableThatReallyDoesNotExist");
+
+    if(result != NULL)
+    {
+        Fail("ERROR: Called getenv on an environment variable which "
+             "doesn't exist and it returned '%s' instead of NULL.\n",result);
+    }
+
+    PAL_Terminate();
+    return PASS;
+}