1 #define _XOPEN_SOURCE 700
15 if (clearenv() || (environ && *environ))
16 error("clrearenv: %s\n", strerror(errno));
18 error("putenv: %s\n", strerror(errno));
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);
26 error("unsetenv: %s\n", strerror(errno));
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);
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);