1/* GLIB - Library of useful routines for C programming
2 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
3 *
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
8 *
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
16 */
17
18/*
19 * Modified by the GLib Team and others 1997-2000. See the AUTHORS
20 * file for a list of people on the GLib Team. See the ChangeLog
21 * files for a list of changes. These files are distributed with
22 * GLib at ftp://ftp.gtk.org/pub/gtk/.
23 */
24
25#undef G_DISABLE_ASSERT
26#undef G_LOG_DOMAIN
27
28#ifdef GLIB_COMPILATION
29#undef GLIB_COMPILATION
30#endif
31
32#include <stdio.h>
33#include <stdlib.h>
34#include <string.h>
35
36#include <glib.h>
37
38int
39main (int argc, char *argv[])
40{
41 gboolean result;
42 const gchar *data;
43 gchar *variable = "TEST_G_SETENV";
44 gchar *value1 = "works";
45 gchar *value2 = "again";
46
47 data = g_getenv (variable);
48 g_assert (data == NULL && "TEST_G_SETENV already set");
49
50 result = g_setenv (variable, value: value1, TRUE);
51 g_assert (result && "g_setenv() failed");
52
53 data = g_getenv (variable);
54 g_assert (data != NULL && "g_getenv() returns NULL");
55 g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value");
56
57 result = g_setenv (variable, value: value2, FALSE);
58 g_assert (result && "g_setenv() failed");
59
60 data = g_getenv (variable);
61 g_assert (data != NULL && "g_getenv() returns NULL");
62 g_assert (strcmp (data, value2) != 0 && "g_setenv() always overwrites");
63 g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value");
64
65 result = g_setenv (variable, value: value2, TRUE);
66 g_assert (result && "g_setenv() failed");
67
68 data = g_getenv (variable);
69 g_assert (data != NULL && "g_getenv() returns NULL");
70 g_assert (strcmp (data, value1) != 0 && "g_setenv() doesn't overwrite");
71 g_assert (strcmp (data, value2) == 0 && "g_getenv() returns wrong value");
72
73 g_unsetenv (variable);
74 data = g_getenv (variable);
75 g_assert (data == NULL && "g_unsetenv() doesn't work");
76
77#if 0
78 /* We can't test this, because it's an illegal argument that
79 * we g_return_if_fail for.
80 */
81 result = g_setenv ("foo=bar", "baz", TRUE);
82 g_assert (!result && "g_setenv() accepts '=' in names");
83#endif
84
85 result = g_setenv (variable: "foo", value: "bar=baz", TRUE);
86 g_assert (result && "g_setenv() doesn't accept '=' in values");
87#if 0
88 /* While glibc supports '=' in names in getenv(), SUS doesn't say anything about it,
89 * and Solaris doesn't support it.
90 */
91 data = g_getenv ("foo=bar");
92 g_assert (strcmp (data, "baz") == 0 && "g_getenv() doesn't support '=' in names");
93#endif
94 data = g_getenv (variable: "foo");
95 g_assert (strcmp (data, "bar=baz") == 0 && "g_getenv() doesn't support '=' in values");
96
97#if 0
98 /* We can't test this, because it's an illegal argument that
99 * we g_return_if_fail for. Plus how would we check for failure,
100 * since we can't set the value...
101 */
102 g_unsetenv ("foo=bar");
103#endif
104 g_unsetenv (variable: "foo");
105 data = g_getenv (variable: "foo");
106 g_assert (data == NULL && "g_unsetenv() doesn't support '=' in values");
107
108 return 0;
109}
110

source code of gtk/subprojects/glib/tests/env-test.c