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
89
90
91
92
93
|
/* This is a test for the NCEPLIBS-g2c project. This test is for
* g2_addlocal.
*
* Ed Hartnett 11/3/21
*/
#include "grib2_int.h"
#include <stdio.h>
#include <stdlib.h>
#define SEC0_LEN 16
#define SEC1_LEN 21
#define MSG_LEN 52
int
main()
{
printf("Testing g2_addlocal().\n");
printf("Testing g2_addlocal() call (expect and ignore error messages)...");
{
unsigned char cgrib[MSG_LEN];
g2int listsec0[2] = {1, 2};
g2int listsec1[13] = {7, 4, 24, 0, 0, 2021, 10, 24, 6, 54, 59, 7, 192};
unsigned char expected_cgrib[MSG_LEN] = {71, 82, 73, 66, 0, 0, 1, 2, 0,
0, 0, 0, 0, 0, 0, 52, 0, 0, 0, 21, 1, 0, 7, 0, 4, 24, 0, 0, 7, 229,
10, 24, 6, 54, 59, 7, 192, 0, 0, 0, 15, 2, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
unsigned char csec2[10] = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
g2int lcsec2 = 10;
g2int iofst;
unsigned char *csec2_in;
g2int lensec2_in;
unsigned char old_val;
int i;
int ret;
/* Create the grib message with sections 0 and 1. */
if ((ret = g2_create(cgrib, listsec0, listsec1)) != SEC0_LEN + SEC1_LEN)
return G2C_ERROR;
/* Change the first char of the message. Just to be dumb. */
old_val = cgrib[0];
cgrib[0] = 0;
/* Try to add the local section. Won't work. */
if ((ret = g2_addlocal(cgrib, csec2, lcsec2)) != -1)
return G2C_ERROR;
/* Change the first char back. */
cgrib[0] = old_val;
/* Mess up the lengths. Just to be dumb. */
old_val = cgrib[16];
cgrib[16] = 99;
/* Try to add the local section. Won't work. */
if ((ret = g2_addlocal(cgrib, csec2, lcsec2)) != -3)
return G2C_ERROR;
/* Change the first char back. */
cgrib[16] = old_val;
/* Add the local section. */
if ((ret = g2_addlocal(cgrib, csec2, lcsec2)) != MSG_LEN)
return G2C_ERROR;
/* Check results. */
for (i = 0; i < MSG_LEN; i++)
{
/* printf("%d, ", cgrib[i]); */
if (cgrib[i] != expected_cgrib[i])
return G2C_ERROR;
}
/* Unpack the local section. */
iofst = (SEC0_LEN + SEC1_LEN) * 8;
if (g2_unpack2(cgrib, &iofst, &lensec2_in, &csec2_in))
return G2C_ERROR;
if (iofst != 416)
return G2C_ERROR;
if (lensec2_in != 10)
return G2C_ERROR;
/* Check results. */
for (i = 0; i < 10; i++)
if (csec2_in[i] != csec2[i])
return G2C_ERROR;
free(csec2_in);
}
printf("ok!\n");
printf("SUCCESS!\n");
return 0;
}
|
