tests/test-all.R

In ows4R: Interface to OGC Web-Services (OWS)

library(testthat)
library(httr)

runIntegrationTests <- class(try(httr::GET("http://localhost:8000/csw"))) != "try-error"
if(runIntegrationTests){
  cat("Running integration tests...\n")
  test_check("ows4R")
}else{
  cat("Skipping integration tests...\n")
}