search for: is_onlin

...tinuously writes status data to the serial port, so one has to send a CR character and empty the buffer of the serial port before sending command and reading the response. This logic trivially works for the other models, but I don't have one to test it. Other additions include - added an is_online member to the modeltabs, stating weather the mode is an on-line UPS or not - on an on-line UPS the b5 of the status is BYPASS instead of BOOST/TRIM so set it in the status - set SHUTDOWN and TEST flag is status according to b1 b2 - added id string to mtab2 for MHD3000 Note the I set...

...ortress UPS driver" -#define DRIVER_VERSION "0.02" +#define DRIVER_VERSION "0.03" /* driver description structure */ upsdrv_info_t upsdrv_info = { @@ -203,20 +203,26 @@ int loadva; int len; int retry; + char ch; int checksum_ok, is_online=1, is_off, low_batt, trimming, boosting; for (retry = 0; retry < 5; ++retry) { upsflushin (0, 0, "\r "); upssend ("f\r"); + while (ser_get_char(upsfd, &ch, 0, UPSDELAY) > 0 && ch != '\n'); // respo...

...SER_WAIT_SEC, SER_WAIT_USEC); } static int upsflushin(int f,int verbose,const char *ignset) { return ser_flush_in(upsfd, ignset, verbose); } /* read out UPS and store info */ void upsdrv_updateinfo(void) { char temp[256]; char *p; int loadva; int len; int retry; int checksum_ok, is_online=1, is_off, low_batt, trimming, boosting; for (retry = 0; retry < 5; ++retry) { upsflushin (0, 0, "\r "); upssend ("f\r"); do { if (upsrecv (temp+2, sizeof temp - 2, ENDCHAR, IGNCHARS) <= 0) { upsflushin (0, 0, "\r "); upssend (&q...

I am trying to install R on CentOS (either 7 or 8, behavior is the same) in an environment behind a firewall and while I am able to run: R CMD make check I am unable to run: R CMD make check-devel These latter tests fail. The failure occurs in the internet access if() conditional statement in these two tests: https://svn.r-project.org/R/trunk/tests/internet.R

...f --git a/src/library/utils/tests/download.file.R b/src/library/utils/tests/download.file.R new file mode 100644 index 0000000000..1cbe2e0db1 --- /dev/null +++ b/src/library/utils/tests/download.file.R @@ -0,0 +1,173 @@ + +## Tests for HTTP headers ----------------------------------------------- + +is_online <- function() { + tryCatch({ + con <- suppressWarnings(socketConnection("8.8.8.8", port = 53)) + close(con) + con <- url("http://eu.httpbin.org/headers") + lines <- readLines(con) + close(con) + stopifnot(any(grepl("Host.*eu.httpbin.org"...