File: t_misc.c

package info (click to toggle)
netcdf-parallel 1%3A4.6.2-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 101,668 kB
  • sloc: ansic: 200,241; sh: 10,807; yacc: 2,522; makefile: 1,306; lex: 1,153; xml: 173; awk: 2
file content (62 lines) | stat: -rw-r--r-- 1,277 bytes parent folder | download | duplicates (2)
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
#include "config.h"
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "netcdf.h"
#include "nctestserver.h"

#define FURL "%s"
static char url[4096];

#ifdef DEBUG
static void
CHECK(int e, const char* msg)
{
    if(e == NC_NOERR) return;
    if(msg == NULL) msg = "Error";
    printf("%s: %s\n", msg, nc_strerror(e));
    exit(1);
}
#endif

static void
XFAIL(int e, const char* msg)
{
    if(e == NC_NOERR) return;
    if(msg == NULL) msg = "XFAIL";
    printf("%s: %s\n", msg, nc_strerror(e));
}

int
main()
{
    int ncid,retval;
    char* serverlist = NULL;
    char* svcurl = NULL;
    const char* servlet = "dts";

#ifdef REMOTETESTSERVERS
    serverlist = strdup(REMOTETESTSERVERS);
#endif

    if(serverlist == NULL || strlen(serverlist) == 0) {
	fprintf(stderr,"Cannot determine a server list");
	exit(1);
    }
    svcurl = nc_findtestserver(servlet,0,serverlist);
    if(svcurl == NULL) {
	fprintf(stderr,"not found: %s\n",servlet);
	exit(1);       
    }

    snprintf(url,sizeof(url),FURL,svcurl);

    printf("Testing: Misc. Tests url=|%s|\n",url);
    retval = nc_open(url, 0, &ncid);
    XFAIL(retval,"*** XFail : No trailing slash in url");
    retval = nc_close(ncid);
    /* cleanup */
    free(serverlist);
    free(svcurl);
    return 0;
}