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
|
/* This is a test for the NCEPLIBS-g2c project. This test is for
* the g2c metadata comparison function.
*
* Ed Hartnett 12/28/22
*/
#include "grib2_int.h"
#include <stdio.h>
#include <stdlib.h>
#define WAVE_FILE "data/gdaswave.t00z.wcoast.0p16.f000.grib2"
#define GDAS_FILE "data/gdas.t12z.pgrb2.1p00.anl.grib2"
int
main()
{
int g2cid1, g2cid2;
printf("Testing g2c_metacmp\n");
/* Open test file. */
if (g2c_open(WAVE_FILE, 0, &g2cid1))
return G2C_ERROR;
printf("comparing file %s to itself...", WAVE_FILE);
{
if (g2c_open(WAVE_FILE, 0, &g2cid2))
return G2C_ERROR;
if (g2c_compare(g2cid1, g2cid2))
return G2C_ERROR;
if (g2c_close(g2cid2))
return G2C_ERROR;
}
printf("ok!\n");
#ifdef FTP_TEST_FILES
printf("comparing file %s to file %s...", WAVE_FILE, GDAS_FILE);
{
if (g2c_open(GDAS_FILE, 0, &g2cid2))
return G2C_ERROR;
if (!g2c_compare(g2cid1, g2cid2))
return G2C_ERROR;
if (g2c_close(g2cid2))
return G2C_ERROR;
}
printf("ok!\n");
#endif /* FTP_TEST_FILES */
if (g2c_close(g2cid1))
return G2C_ERROR;
printf("SUCCESS!\n");
return 0;
}
|
