tests/testthat/test-utils.R

In nationalparkservice/IMDQC: NPS Inventory and Monitoring Quality Control Toolkit

test_that(".QC_ds_api returns correct url", {
  expect_equal(.QC_ds_api(x), "https://irmaservices.nps.gov/datastore/v6/rest/")
})

test_that(".QC_ds_secure_api returns correct url", {
  expect_equal(.QC_ds_secure_api(x), "https://irmaservices.nps.gov/datastore-secure/v6/rest/")
})

test_that(".QC_ds_dev_api returns correct url", {
  expect_equal(.QC_ds_dev_api(x), "https://irmadevservices.nps.gov/datastore-secure/v6/rest/")
})

test_that("get_user_email returns a string approximating an email", {
  email <- get_user_email()
  expect_equal(grep("@", email), 1)
})