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
76
77
78
79
80
81
82
83
84
85
86
87
88
|
// 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: test1.c
**
** Purpose: Tests the PAL implementation of the atol function.
** Check to ensure that the different ints (normal,
** negative, decimal,exponent), all work as expected with
** this function.
**
**
**===================================================================*/
#include <palsuite.h>
struct testCase
{
LONG LongValue;
char avalue[20];
};
int __cdecl main(int argc, char **argv)
{
LONG result=0;
int i=0;
struct testCase testCases[] =
{
{1234, "1234"},
{-1234, "-1234"},
{1234, "1234.44"},
{1234, "1234e-5"},
{1234, "1234e+5"},
{1234, "1234E5"},
{1234, "1234.657e-8"},
{1234, "1234d-5"},
{1234, "1234d+5"},
{1234, "1234D5"},
{1234567, " 1234567e-8 foo"},
{0, "aaa 32 test"}
};
/*
* Initialize the PAL and return FAIL if this fails
*/
if (0 != (PAL_Initialize(argc, argv)))
{
return FAIL;
}
/* Loop through each case. Convert the string to a LONG
and then compare to ensure that it is the correct value.
*/
for(i = 0; i < sizeof(testCases) / sizeof(struct testCase); i++)
{
/*Convert the string to a LONG.*/
result = atol(testCases[i].avalue);
if (testCases[i].LongValue != result)
{
Fail("ERROR: atol misinterpreted \"%s\" as %d instead of %d.\n"
, testCases[i].avalue, result, testCases[i].LongValue);
}
}
PAL_Terminate();
return PASS;
}
|
