mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-03 08:01:25 +08:00
7223c4a5aa
re: https://github.com/Unidata/netcdf-c/issues/1451 The situation with the various DAP (and other) remote test servers is currently in a state of flux. For example, Unidata admin is planning to forcibly shift the remote test server to remotetest.unidata.ucar.edu soon. In addition, the server test.opendap.org has shown some recent instability. The result is that various DAP (and byterange) tests can fail unexpectedly. This is an irritant to users and reveals nothing about test sucess or failure. Solve by modifying tests to report server inaccessibility and otherwise pretend to succeed. This puts an onus on Unidata to detect such server failures, but will not cause users to see spurious failures. [Note. Do similar fix for netcdf-java]. The check is: 1. export SETX=1 to cause all the shell scripts to trace 2. search the log files for the phrase "WARNING" (in upper case) and see if it is complaining about not finding a server. Misc. Changes ------------- 1. Added a pingurl program to see if a server was up. 2. modified some test case url targets
73 lines
1.5 KiB
C
73 lines
1.5 KiB
C
/*! \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(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;
|
|
}
|