tests/testthat/test-api-path.R

In MTES-MCT/didor: Tools to Explore and Download CGDD/SDES Opendata

test_that("get_api_base_path return the default path by default", {
  Sys.unsetenv("DIDOLITE_API_BASE_PATH")
  clean_dido_env()

  path <- default_api_base_path

  expect_equal(get_api_base_path(), path)
})

test_that("get_api_base_path return the DIDOLITE_API_BASE_PATH if configured in env", {
  path <- "http://envvar"
  Sys.setenv(DIDOLITE_API_BASE_PATH = path)
  clean_dido_env()

  expect_equal(get_api_base_path(), path)

  Sys.unsetenv("DIDOLITE_API_BASE_PATH")
})

test_that("get_api_base_path return the set path if configured", {
  Sys.setenv(DIDOLITE_API_BASE_PATH = "some path")
  clean_dido_env()

  path <- "http://set_api_base_path"
  set_api_base_path(path)

  expect_equal(get_api_base_path(), path)
})

test_that("set_api_base_path can remove configuration", {
  Sys.unsetenv("DIDOLITE_API_BASE_PATH")
  clean_dido_env()
  path <- "http://set_api_base_path"
  set_api_base_path(path)

  set_api_base_path(NULL)

  expect_equal(get_api_base_path(), default_api_base_path)
})

test_that("set_api_base_path remove env when called", {
  Sys.unsetenv("DIDOLITE_API_BASE_PATH")
  clean_dido_env()

  df <- datafiles()
  expect_true(exists("dido_df", envir = .dido_env))
  set_api_base_path(NULL)
  expect_false(exists("dido_df", envir = .dido_env))
})