1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *   $Header: /upc/share/CVS/netcdf-3/nctest/misctest.c,v 1.11 2006/10/31 16:21:57 ed Exp $
5 *********************************************************************/
6
7#include <config.h>
8#include <stdio.h>
9#include <string.h>
10#include "netcdf.h"
11#include "testcdf.h" /* defines in-memory test cdf structure */
12#include "add.h" /* functions to update in-memory netcdf */
13#include "error.h"
14#include "tests.h"
15
16/*
17 * Test nctypelen
18 *    try with bad datatype, check error
19 *    check returned values for each proper datatype
20 */
21int
22test_nctypelen()
23{
24    int nerrs = 0;
25    static char pname[] = "test_nctypelen";
26
27    (void) fprintf(stderr, "*** Testing %s ...\t", &pname[5]);
28
29    if (nctypelen(NC_BYTE) != sizeof(char)) {
30 error("%s: nctypelen failed for NC_BYTE", pname);
31 nerrs++;
32    }
33    if (nctypelen(NC_CHAR) != sizeof(char)) {
34 error("%s: nctypelen failed for NC_CHAR", pname);
35 nerrs++;
36    }
37    if (nctypelen(NC_SHORT) != sizeof(short)) {
38 error("%s: nctypelen failed for NC_SHORT", pname);
39 nerrs++;
40    }
41    if (nctypelen(NC_LONG) != sizeof(nclong)) {
42 error("%s: nctypelen failed for NC_LONG", pname);
43 nerrs++;
44    }
45    if (nctypelen(NC_FLOAT) != sizeof(float)) {
46 error("%s: nctypelen failed for NC_FLOAT", pname);
47 nerrs++;
48    }
49    if (nctypelen(NC_DOUBLE) != sizeof(double)) {
50 error("%s: nctypelen failed for NC_DOUBLE", pname);
51 nerrs++;
52    }
53    if (nerrs > 0)
54      (void) fprintf(stderr,"FAILED! ***\n");
55    else
56      (void) fprintf(stderr,"ok ***\n");
57
58    return nerrs;
59}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed