1#include "config.h"
2#include <stdlib.h>
3#include <stdio.h>
4#include <string.h>
5#include <netcdf.h>
6
7
8#define URL1 "http://%s" /* test that no trailing / is ok */
9static char url1[1024];
10
11#ifdef DEBUG
12static void
13CHECK(int e, const char* msg)
14{
15    if(e == NC_NOERR) return;
16    if(msg == NULLmsg = "Error";
17    printf("%s: %s\n", msgnc_strerror(e));
18    exit(1);
19}
20#endif
21
22static void
23XFAIL(int e, const char* msg)
24{
25    if(e == NC_NOERR) return;
26    if(msg == NULLmsg = "XFAIL";
27    printf("%s: %s\n", msgnc_strerror(e));
28}
29
30int
31main()
32{
33    int ncid,retval;
34
35    {
36    char* evv = getenv("DTSTESTSERVER");
37    if(evv == NULL)
38 evv = "remotetest.unidata.ucar.edu";
39    snprintf(url1,sizeof(url1),URL1,evv);
40    }
41
42    printf("Testing: Misc. Tests \n");
43    retval = nc_open(url1, 0, &ncid);
44    XFAIL(retval,"*** XFail : No trailing slash in url");
45    retval = nc_close(ncid);
46    return 0;
47}


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