tests/testthat/helpers.R

In CenterForOpenScience/osfr: Interface to the 'Open Science Framework' ('OSF')

# for tests that must be executed on test.osf.io
on_test_server <- function() {
  Sys.getenv("OSF_SERVER") == "test"
}

skip_on_production_server <- function() {
  testthat::skip_if_not(
    on_test_server(),
    "OSF_SERVER not set to 'test'."
  )
}


# for tests that require authenticated access
has_pat <- function() {
  nzchar(Sys.getenv("OSF_PAT"))
}

skip_if_no_pat <- function() {
  testthat::skip_if_not(
    has_pat(),
    "No PAT detected."
  )
}


# for tests that require existing projects on osf created w/ data-raw/ scripts
get_guids <- function() {
  guid_file <- list.files(
    path = rprojroot::find_testthat_root_file(),
    pattern = "test-guids.dcf",
    recursive = TRUE,
    full.names = TRUE
  )
  read.dcf(guid_file)
}