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
|
/* This is a test for the NCEPLIBS-g2c project. This test is for
* gridtemplates.c.
*
* Ed Hartnett 10/24/21
*/
#include "grib2_int.h"
#include <stdio.h>
#include <stdlib.h>
/* Prototypes. */
g2int getgridindex(g2int number);
int
main()
{
printf("Testing gridtemplates.\n");
printf("Testing simple getgridtemplate() calls (expect and ignore error messages)...");
{
/* Note that gtemplate is not the same as gribtemplate. */
gtemplate *tmpl;
g2int list[9] = {0, 1, 2, 3, 4, 5, 6, 7, 8};
g2int list2[20] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19};
/* Check for one that's there and does not need extension. */
if (!(tmpl = getgridtemplate(1)))
return G2C_ERROR;
if (tmpl->type != 3 || tmpl->num != 1 || tmpl->maplen != 22 || tmpl->needext ||
tmpl->extlen || tmpl->ext)
return G2C_ERROR;
free(tmpl);
/* Check for one that's there and does need extension. */
if (!(tmpl = getgridtemplate(4)))
return G2C_ERROR;
if (tmpl->type != 3 || tmpl->num != 4 || tmpl->maplen != 13 || !tmpl->needext)
return G2C_ERROR;
free(tmpl);
/* Check for one that's there and does need extension. This
* code fails CI because of a memory leak in the library, see
* https://github.com/NOAA-EMC/NCEPLIBS-g2c/issues/150. */
/* if (!(tmpl = extgridtemplate(4, list))) */
/* return G2C_ERROR; */
/* if (tmpl->type != 3 || tmpl->num != 4 || tmpl->maplen != 13 || !tmpl->needext) */
/* return G2C_ERROR; */
/* free(tmpl->ext); */
/* free(tmpl); */
if (!(tmpl = extgridtemplate(120, list)))
return G2C_ERROR;
if (tmpl->type != 3 || tmpl->num != 120 || tmpl->maplen != 7 || !tmpl->needext)
return G2C_ERROR;
if (!tmpl->ext)
return G2C_ERROR;
free(tmpl->ext);
free(tmpl);
if (!(tmpl = extgridtemplate(1000, list2)))
return G2C_ERROR;
if (tmpl->type != 3 || tmpl->num != 1000 || tmpl->maplen != 20 || !tmpl->needext)
return G2C_ERROR;
if (!tmpl->ext)
return G2C_ERROR;
free(tmpl->ext);
free(tmpl);
if (!(tmpl = extgridtemplate(1200, list2)))
return G2C_ERROR;
if (tmpl->type != 3 || tmpl->num != 1200 || tmpl->maplen != 16 || !tmpl->needext)
return G2C_ERROR;
if (!tmpl->ext)
return G2C_ERROR;
free(tmpl->ext);
free(tmpl);
/* Check for one that's not there. */
if ((tmpl = getgridtemplate(-1)))
return G2C_ERROR;
}
printf("ok!\n");
printf("SUCCESS!\n");
return 0;
}
|
