nsz Git - libc-test/blob - src/env/env.c

   1 #define _XOPEN_SOURCE 700
   2 #include "test.h"
   3 #include <stdlib.h>
   4 #include <string.h>
   5 #include <errno.h>
   6 #include <unistd.h>
   7
   8 extern char **environ;
   9 int clearenv(void);
  10
  11 void test_env() {
  12         char *s;
  13         int r;
  14
  15         if (clearenv() || (environ && *environ))
  16                 error("clrearenv: %s\n", strerror(errno));
  17         if (putenv("TEST=1"))
  18                 error("putenv: %s\n", strerror(errno));
  19         if ((s=environ[1]))
  20                 error("environ[1]: %p, wanted 0\n", s);
  21         if (!(s=getenv("TEST")))
  22                 error("getenv(\"TEST\"): 0, wanted \"1\"\n");
  23         if (strcmp(s,"1") != 0)
  24                 error("getenv(\"TEST\"): \"%s\", wanted \"1\"\n", s);
  25         if (unsetenv("TEST"))
  26                 error("unsetenv: %s\n", strerror(errno));
  27         if ((s=*environ))
  28                 error("*environ: %p != 0\n", s);
  29         if ((s=getenv("TEST")))
  30                 error("getenv(\"TEST\"): %p, wanted 0\n", s);
  31         if (setenv("TEST", "2", 0))
  32                 error("setenv: %s\n", strerror(errno));
  33         if (strcmp(s=getenv("TEST"),"2") != 0)
  34                 error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
  35         if (setenv("TEST", "3", 0))
  36                 error("setenv: %s\n", strerror(errno));
  37         if (strcmp(s=getenv("TEST"),"2") != 0)
  38                 error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
  39         if (setenv("TEST", "3", 1))
  40                 error("setenv: %s\n", strerror(errno));
  41         if (strcmp(s=getenv("TEST"),"3") != 0)
  42                 error("getenv(\"TEST\"): \"%s\", wanted \"3\"\n", s);
  43         /* test failures */
  44         if ((r=setenv("","",0)) != -1 || errno != EINVAL)
  45                 error("setenv(\"\",\"\",0): %d, errno: %d (%s), wanted -1, %d (EINVAL)\n", r, errno, strerror(errno), EINVAL);
  46         if ((r=setenv(0,"",0)) != -1 || errno != EINVAL)
  47                 error("setenv(0,\"\",0): %d, errno: %d (%s), wanted -1, %d (EINVAL)\n", r, errno, strerror(errno), EINVAL);
  48 }