|
1 /* GLIB - Library of useful routines for C programming |
|
2 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald |
|
3 * Portion Copyright © 2008-09 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. |
|
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 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, write to the |
|
16 * Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
|
17 * Boston, MA 02111-1307, USA. |
|
18 */ |
|
19 |
|
20 /* |
|
21 * Modified by the GLib Team and others 1997-2000. See the AUTHORS |
|
22 * file for a list of people on the GLib Team. See the ChangeLog |
|
23 * files for a list of changes. These files are distributed with |
|
24 * GLib at ftp://ftp.gtk.org/pub/gtk/. |
|
25 */ |
|
26 |
|
27 #include "config.h" |
|
28 |
|
29 #undef G_DISABLE_ASSERT |
|
30 #undef G_LOG_DOMAIN |
|
31 |
|
32 #ifdef GLIB_COMPILATION |
|
33 #undef GLIB_COMPILATION |
|
34 #endif |
|
35 |
|
36 #include <stdio.h> |
|
37 #include <stdlib.h> |
|
38 #include <string.h> |
|
39 |
|
40 #include <glib.h> |
|
41 |
|
42 #ifdef HAVE_UNISTD_H |
|
43 #include <unistd.h> |
|
44 #endif |
|
45 |
|
46 #ifdef __SYMBIAN32__ |
|
47 #include "mrt2_glib2_test.h" |
|
48 #endif /*__SYMBIAN32__*/ |
|
49 |
|
50 |
|
51 int |
|
52 main (int argc, char *argv[]) |
|
53 { |
|
54 gboolean result; |
|
55 const gchar *data; |
|
56 gchar *variable = "TEST_G_SETENV"; |
|
57 gchar *value1 = "works"; |
|
58 gchar *value2 = "again"; |
|
59 |
|
60 #ifdef __SYMBIAN32__ |
|
61 g_log_set_handler (NULL, G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL); |
|
62 g_set_print_handler(mrtPrintHandler); |
|
63 #endif /*__SYMBIAN32__*/ |
|
64 |
|
65 data = g_getenv (variable); |
|
66 g_assert (data == NULL && "TEST_G_SETENV already set"); |
|
67 |
|
68 result = g_setenv (variable, value1, TRUE); |
|
69 g_assert (result && "g_setenv() failed"); |
|
70 |
|
71 data = g_getenv (variable); |
|
72 g_assert (data != NULL && "g_getenv() returns NULL"); |
|
73 g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value"); |
|
74 |
|
75 result = g_setenv (variable, value2, FALSE); |
|
76 g_assert (result && "g_setenv() failed"); |
|
77 |
|
78 data = g_getenv (variable); |
|
79 g_assert (data != NULL && "g_getenv() returns NULL"); |
|
80 g_assert (strcmp (data, value2) != 0 && "g_setenv() always overwrites"); |
|
81 g_assert (strcmp (data, value1) == 0 && "g_getenv() returns wrong value"); |
|
82 |
|
83 result = g_setenv (variable, value2, TRUE); |
|
84 g_assert (result && "g_setenv() failed"); |
|
85 |
|
86 data = g_getenv (variable); |
|
87 g_assert (data != NULL && "g_getenv() returns NULL"); |
|
88 g_assert (strcmp (data, value1) != 0 && "g_setenv() doesn't overwrite"); |
|
89 g_assert (strcmp (data, value2) == 0 && "g_getenv() returns wrong value"); |
|
90 |
|
91 g_unsetenv (variable); |
|
92 data = g_getenv (variable); |
|
93 g_assert (data == NULL && "g_unsetenv() doesn't work"); |
|
94 |
|
95 #if 0 |
|
96 /* We can't test this, because it's an illegal argument that |
|
97 * we g_return_if_fail for. |
|
98 */ |
|
99 result = g_setenv ("foo=bar", "baz", TRUE); |
|
100 g_assert (!result && "g_setenv() accepts '=' in names"); |
|
101 #endif |
|
102 |
|
103 result = g_setenv ("foo", "bar=baz", TRUE); |
|
104 g_assert (result && "g_setenv() doesn't accept '=' in values"); |
|
105 #if 0 |
|
106 /* While glibc supports '=' in names in getenv(), SUS doesn't say anything about it, |
|
107 * and Solaris doesn't support it. |
|
108 */ |
|
109 data = g_getenv ("foo=bar"); |
|
110 g_assert (strcmp (data, "baz") == 0 && "g_getenv() doesn't support '=' in names"); |
|
111 #endif |
|
112 data = g_getenv ("foo"); |
|
113 g_assert (strcmp (data, "bar=baz") == 0 && "g_getenv() doesn't support '=' in values"); |
|
114 |
|
115 #if 0 |
|
116 /* We can't test this, because it's an illegal argument that |
|
117 * we g_return_if_fail for. Plus how would we check for failure, |
|
118 * since we can't set the value... |
|
119 */ |
|
120 g_unsetenv ("foo=bar"); |
|
121 #endif |
|
122 g_unsetenv ("foo"); |
|
123 data = g_getenv ("foo"); |
|
124 g_assert (data == NULL && "g_unsetenv() doesn't support '=' in values"); |
|
125 |
|
126 #if __SYMBIAN32__ |
|
127 testResultXml("env-test"); |
|
128 #endif /* EMULATOR */ |
|
129 |
|
130 |
|
131 return 0; |
|
132 } |