X-Git-Url: http://nsz.repo.hu/git/?p=libc-test;a=blobdiff_plain;f=src%2Ffunctional%2Fenv.c;h=cf8643941cbd715eb7f1b056e79662d02b7ff90d;hp=7962bf5e926fd2fc70a944b20678810f923f18c8;hb=24c622d6614207d54e25fbc004ddde77ce55871d;hpb=2cf89517c5b25c2524fe0c0c01ed277d7307a852

diff --git a/src/functional/env.c b/src/functional/env.c
index 7962bf5..cf86439 100644
--- a/src/functional/env.c
+++ b/src/functional/env.c
@@ -14,38 +14,46 @@ int main()
 	char *s;
 	int r;
 
+	if (!environ)
+		t_error("environ is NULL\n");
 	if (clearenv() || (environ && *environ))
-		error("clrearenv: %s\n", strerror(errno));
+		t_error("clrearenv: %s\n", strerror(errno));
 	if (putenv("TEST=1"))
-		error("putenv: %s\n", strerror(errno));
+		t_error("putenv: %s\n", strerror(errno));
+	if (strcmp(environ[0],"TEST=1") != 0)
+		t_error("putenv failed: environ[0]: %s, wanted \"TEST=1\"\n", environ[0]);
 	if ((s=environ[1]))
-		error("environ[1]: %p, wanted 0\n", s);
+		t_error("environ[1]: %p, wanted 0\n", s);
 	if (!(s=getenv("TEST")))
-		error("getenv(\"TEST\"): 0, wanted \"1\"\n");
+		t_error("getenv(\"TEST\"): 0, wanted \"1\"\n");
 	if (strcmp(s,"1") != 0)
-		error("getenv(\"TEST\"): \"%s\", wanted \"1\"\n", s);
+		t_error("getenv(\"TEST\"): \"%s\", wanted \"1\"\n", s);
 	if (unsetenv("TEST"))
-		error("unsetenv: %s\n", strerror(errno));
+		t_error("unsetenv: %s\n", strerror(errno));
 	if ((s=*environ))
-		error("*environ: %p != 0\n", s);
+		t_error("*environ: %p != 0\n", s);
 	if ((s=getenv("TEST")))
-		error("getenv(\"TEST\"): %p, wanted 0\n", s);
+		t_error("getenv(\"TEST\"): %p, wanted 0\n", s);
+	errno = 0;
 	if (setenv("TEST", "2", 0))
-		error("setenv: %s\n", strerror(errno));
+		t_error("setenv: %s\n", strerror(errno));
 	if (strcmp(s=getenv("TEST"),"2") != 0)
-		error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
+		t_error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
+	if (strcmp(environ[0], "TEST=2") != 0)
+		t_error("setenv failed: environ[0]: %s, wanted \"TEST=2\"\n", environ[0]);
+	errno = 0;
 	if (setenv("TEST", "3", 0))
-		error("setenv: %s\n", strerror(errno));
+		t_error("setenv: %s\n", strerror(errno));
 	if (strcmp(s=getenv("TEST"),"2") != 0)
-		error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
+		t_error("getenv(\"TEST\"): \"%s\", wanted \"2\"\n", s);
+	errno = 0;
 	if (setenv("TEST", "3", 1))
-		error("setenv: %s\n", strerror(errno));
+		t_error("setenv: %s\n", strerror(errno));
 	if (strcmp(s=getenv("TEST"),"3") != 0)
-		error("getenv(\"TEST\"): \"%s\", wanted \"3\"\n", s);
+		t_error("getenv(\"TEST\"): \"%s\", wanted \"3\"\n", s);
 	/* test failures */
+	errno = 0;
 	if ((r=setenv("","",0)) != -1 || errno != EINVAL)
-		error("setenv(\"\",\"\",0): %d, errno: %d (%s), wanted -1, %d (EINVAL)\n", r, errno, strerror(errno), EINVAL);
-	if ((r=setenv(0,"",0)) != -1 || errno != EINVAL)
-		error("setenv(0,\"\",0): %d, errno: %d (%s), wanted -1, %d (EINVAL)\n", r, errno, strerror(errno), EINVAL);
-	return test_status;
+		t_error("setenv(\"\",\"\",0): %d, errno: %d (%s), wanted -1, %d (EINVAL)\n", r, errno, strerror(errno), EINVAL);
+	return t_status;
 }