tests/test-all.R

In ocs4R: Interface to Open Collaboration Services (OCS) REST API

library(testthat)
library(ocs4R)

if(Sys.getenv("NOT_CRAN") == "true"){

  #test environment
  ocs_url <- "http://localhost:8080"
  ocs_user <- "admin"
  ocs_pwd <- "admin"
  
  OCS <- ocsManager$new(
    url = ocs_url, 
    user = ocs_user, 
    pwd = ocs_pwd, 
    logger = "DEBUG"
  )
  
  if(is(OCS, "ocsManager")){
    cat(sprintf("OCS REST endpoint at '%s' configured with token. Running integration tests...\n", ocs_url))
    test_check("ocs4R")
  }else{
    cat("OCS REST endpoint at '%s' not configured. Skipping integration tests...\n")
  }

}