tests/testthat/test_check_presence.R

context("check_presence()")

test_that("status is set to FAILURE if any expectation is FAILURE", {
  if ("mdq_result" %in% ls(envir = .GlobalEnv)) rm(mdq_result, envir = .GlobalEnv)

  # F
  check_presence(list())
  expect_true(mdq_result[["status"]] == "FAILURE")

  # FS
  rm(list = ls(all = TRUE))
  check_presence(list())
  check_presence(list(""))
  expect_true(mdq_result[["status"]] == "FAILURE")

  # SF
  rm(list = ls(all = TRUE))
  check_presence(list(""))
  check_presence(list())
  expect_true(mdq_result[["status"]] == "FAILURE")

  # FSF
  rm(list = ls(all = TRUE))
  check_presence(list())
  check_presence(list(""))
  check_presence(list())
  expect_true(mdq_result[["status"]] == "FAILURE")

  # SFS
  check_presence(list(""))
  check_presence(list())
  check_presence(list(""))
  expect_true(mdq_result[["status"]] == "FAILURE")
})
NCEAS/metadig-r documentation built on June 17, 2022, 5:09 a.m.