tests/testthat/test-scheme.R

context("scheme")

test_that("schemes can be get and set", {
  expect_equal(get_scheme(), "mda_streams")
  set_scheme("mda_streams_dev")
  expect_equal(get_scheme(), "mda_streams_dev")
  set_scheme("mda_streams")
})
USGS-R/mda.streams documentation built on June 3, 2023, 8:43 a.m.