#include "config.h"
#undef G_DISABLE_ASSERT
#undef G_LOG_DOMAIN
#ifdef GLIB_COMPILATION
#undef GLIB_COMPILATION
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <glib.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
int
main (int argc, char *argv[])
{
gboolean result;
const gchar *data;
gchar *variable = "TEST_G_SETENV";
gchar *value1 = "works";
gchar *value2 = "again";
data = g_getenv (variable);
g_assert (data == NULL && "TEST_G_SETENV already set");
result = g_setenv (variable, value1, TRUE);
g_assert (result && "g_setenv() failed");
data = g_getenv (variable);
g_assert (data != NULL && "g_getenv() returns NULL");
g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value");
result = g_setenv (variable, value2, FALSE);
g_assert (result && "g_setenv() failed");
data = g_getenv (variable);
g_assert (data != NULL && "g_getenv() returns NULL");
g_assert (strcmp (data, value2) != 0 && "g_setenv() always overwrites");
g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value");
result = g_setenv (variable, value2, TRUE);
g_assert (result && "g_setenv() failed");
data = g_getenv (variable);
g_assert (data != NULL && "g_getenv() returns NULL");
g_assert (strcmp (data, value1) != 0 && "g_setenv() doesn't overwrite");
g_assert (strcmp (data, value2) == 0 && "g_getenv() returns wrong value");
g_unsetenv (variable);
data = g_getenv (variable);
g_assert (data == NULL && "g_unsetenv() doesn't work");
#if 0
result = g_setenv ("foo=bar", "baz", TRUE);
g_assert (!result && "g_setenv() accepts '=' in names");
#endif
result = g_setenv ("foo", "bar=baz", TRUE);
g_assert (result && "g_setenv() doesn't accept '=' in values");
#if 0
data = g_getenv ("foo=bar");
g_assert (strcmp (data, "baz") == 0 && "g_getenv() doesn't support '=' in names");
#endif
data = g_getenv ("foo");
g_assert (strcmp (data, "bar=baz") == 0 && "g_getenv() doesn't support '=' in values");
#if 0
g_unsetenv ("foo=bar");
#endif
g_unsetenv ("foo");
data = g_getenv ("foo");
g_assert (data == NULL && "g_unsetenv() doesn't support '=' in values");
return 0;
}