blob: 48d7ba963c0157180750746b9b318851b703cc23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
/*=====================================================================
**
** Source: test4.c
**
** Purpose: Create an environment variable and try to retrieve
** it using the same name but with different case. This
** is to show that the Win32 representation of _putenv
** is case insensitive.
**
**
**===================================================================*/
#include <palsuite.h>
int __cdecl main(int argc, char **argv)
{
#if WIN32
const char* FirstVariable = "PalTestingEnvironmentVariable=The value";
const char* ModifiedName = "PALTESTINGEnvironmentVariable";
const char* FirstVarValue = "The value";
char* result;
if (0 != (PAL_Initialize(argc, argv)))
{
return FAIL;
}
/* Use _putenv to set an environment variable. This ensures that the
variable we're testing on is always present.
*/
if(_putenv(FirstVariable) != 0)
{
Fail("ERROR: _putenv failed to set an environment variable that "
"getenv will be using for testing.\n");
}
/* Call getenv -- ensure it doesn't return NULL and the string it returns
is the value we set above. Also make sure that each environment variable,
differing only by case, doesn't affect the return value.
*/
result = getenv(ModifiedName);
if(result == NULL)
{
Fail("ERROR: The result of getenv on a valid Environment Variable "
"was NULL, which indicates the environment varaible was not "
"found.\n");
}
if(strcmp(result, FirstVarValue) != 0)
{
Fail("ERROR: The value obtained by getenv() was not equal to the "
"correct value of the environment variable. The correct "
"value is '%s' and the function returned '%s'.\n",
FirstVarValue,
result);
}
PAL_Terminate();
return PASS;
#else
return PASS;
#endif
}
|
