initial check-in, taken from old libc svn repo with significant additions

1 files changed, 40 insertions, 0 deletions

diff --git a/env.c b/env.c
new file mode 100644
index 0000000..3214ed2
--- /dev/null
+++ b/env.c
@@ -0,0 +1,40 @@
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <limits.h>
+#include <unistd.h>
+#include <stdlib.h>
+
+#define TEST(r, f, x, m) ( \
+((r) = (f)) == (x) || \
+(printf(__FILE__ ":%d: %s failed (" m ")\n", __LINE__, #f, r, x, strerror(errno)), err++, 0) )
+
+#define TEST_S(s, x, m) ( \
+!strcmp((s),(x)) || \
+(printf(__FILE__ ":%d: [%s] != [%s] (%s)\n", __LINE__, s, x, m), err++, 0) )
+
+extern char **environ;
+int clearenv(void);
+
+int test_env(void)
+{
+	int i;
+	int err=0;
+	char a[100], b[100], *s;
+	FILE *f;
+
+	TEST(i, (clearenv(), !environ || !*environ), 1, "failed");
+	TEST(i, putenv("TEST=1"), 0, "failed");
+	TEST(s, environ[1], 0, "%p != 0");
+	TEST_S((s=getenv("TEST")), "1", "failed");
+	TEST(i, unsetenv("TEST"), 0, "failed");
+	TEST(i, !*environ, 1, "failed");
+	TEST(i, setenv("TEST", "2", 0), 0, "failed");
+	TEST_S((s=getenv("TEST")), "2", "failed");
+	TEST(i, setenv("TEST", "3", 0), 0, "failed");
+	TEST_S((s=getenv("TEST")), "2", "failed");
+	TEST(i, setenv("TEST", "3", 1), 0, "failed");
+	TEST_S((s=getenv("TEST")), "3", "failed");
+
+	return err;
+}