1 files changed, 141 insertions, 0 deletions
diff --git a/stdlib/tst-environ.c b/stdlib/tst-environ.c
new file mode 100644
index 0000000000..01083f5511
--- /dev/null
+++ b/stdlib/tst-environ.c
@@ -0,0 +1,141 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+
+#define VAR "FOOBAR"
+
+char putenv_val[100] = VAR "=some longer value";
+
+int
+main (void)
+{
+  int result = 0;
+  const char *valp;
+
+  /* First test: remove entry FOOBAR, whether it exists or not.  */
+  unsetenv (VAR);
+
+  /* Now getting the value should fail.  */
+  if (getenv (VAR) != NULL)
+    {
+      printf ("There should be no `%s' value\n", VAR);
+      result = 1;
+    }
+
+  /* Now add a value, with the replace flag cleared.  */
+  if (setenv (VAR, "one", 0) != 0)
+    {
+      printf ("setenv #1 failed: %m\n");
+      result = 1;
+    }
+
+  /* Getting this value should now be possible.  */
+  valp = getenv (VAR);
+  if (valp == NULL || strcmp (valp, "one") != 0)
+    {
+      puts ("getenv #2 failed");
+      result = 1;
+    }
+
+  /* Try to replace without the replace flag set.  This should fail.  */
+  if (setenv (VAR, "two", 0) != 0)
+    {
+      printf ("setenv #2 failed: %m\n");
+      result = 1;
+    }
+
+  /* The value shouldn't have changed.  */
+  valp = getenv (VAR);
+  if (valp == NULL || strcmp (valp, "one") != 0)
+    {
+      puts ("getenv #3 failed");
+      result = 1;
+    }
+
+  /* Now replace the value using putenv.  */
+  if (putenv (putenv_val) != 0)
+    {
+      printf ("putenv #1 failed: %m\n");
+      result = 1;
+    }
+
+  /* The value should have changed now.  */
+  valp = getenv (VAR);
+  if (valp == NULL || strcmp (valp, "some longer value") != 0)
+    {
+      printf ("getenv #4 failed (is \"%s\")\n", valp);
+      result = 1;
+    }
+
+  /* Now one tricky check: changing the variable passed in putenv should
+     change the environment.  */
+  strcpy (&putenv_val[sizeof VAR], "a short one");
+
+  /* The value should have changed again.  */
+  valp = getenv (VAR);
+  if (valp == NULL || strcmp (valp, "a short one") != 0)
+    {
+      puts ("getenv #5 failed");
+      result = 1;
+    }
+
+  /* It should even be possible to rename the variable.  */
+  strcpy (putenv_val, "XYZZY=some other value");
+
+  /* Now a lookup using the old name should fail.  */
+  if (getenv (VAR) != NULL)
+    {
+      puts ("getenv #6 failed");
+      result = 1;
+    }
+
+  /* But using the new name it should work.  */
+  valp = getenv ("XYZZY");
+  if (valp == NULL || strcmp (valp, "some other value") != 0)
+    {
+      puts ("getenv #7 failed");
+      result = 1;
+    }
+
+  /* Create a new variable with the old name.  */
+  if (setenv (VAR, "a new value", 0) != 0)
+    {
+      printf ("setenv #3 failed: %m\n");
+      result = 1;
+    }
+
+  /* At this point a getenv call must return the new value.  */
+  valp = getenv (VAR);
+  if (valp == NULL || strcmp (valp, "a new value") != 0)
+    {
+      puts ("getenv #8 failed");
+      result = 1;
+    }
+
+  /* Black magic: rename the variable we added using putenv back.  */
+  strcpy (putenv_val, VAR "=old name new value");
+
+  /* This is interesting.  We have two variables with the same name.
+     Getting a value should return one of them.  */
+  valp = getenv (VAR);
+  if (valp == NULL
+      || (strcmp (valp, "a new value") != 0
+	  && strcmp (valp, "old name new value") != 0))
+    {
+      puts ("getenv #9 failed");
+      result = 1;
+    }
+
+  /* More fun ahead: we are now removing the variable.  This should remove
+     both values.  */
+  putenv (VAR);
+
+  /* Getting the value should now fail.  */
+  if (getenv (VAR) != NULL)
+    {
+      printf ("getenv #10 failed (\"%s\" found)\n", getenv (VAR));
+      result = 1;
+    }
+
+  return result;
+}