You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
73 lines
1.5 KiB
73 lines
1.5 KiB
2 years ago
|
/*! \file
|
||
|
|
|
||
|
|
Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
|
||
|
|
2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
|
||
|
|
2015, 2016, 2017, 2018
|
||
|
|
University Corporation for Atmospheric Research/Unidata.
|
||
|
|
|
||
|
|
See \ref copyright file for more info.
|
||
|
|
|
||
|
|
*/
|
||
|
|
#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,"WARNING: Cannot determine a server list");
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
svcurl = nc_findtestserver(servlet,serverlist);
|
||
|
|
if(svcurl == NULL) {
|
||
|
|
fprintf(stderr,"WARNING: Server not found: %s\n",servlet);
|
||
|
|
exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
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;
|
||
|
|
}
|