tests/testthat/test-get_mirca.R

In AndySouth/climcropr: Simple Crop Modelling at a Global Scale

# Test that get_mirca functions properly ---------------------------------------
context("get_mirca")
file.remove(file.path(tempdir(), list.files(tempdir(), pattern = "asc.gz$")))
test_that("get_mirca creates an S4 object for a rainfed crop as default", {
  skip_on_cran()
  unlink(file.path(tempdir(), "*asc.gz"))
  rst_mir <- get_mirca("potatoes", rainfed = TRUE, cache = FALSE)
  expect_type(rst_mir, "S4")
  expect_match(list.files(tempdir(), pattern = ".asc.gz$"),
                          "annual_area_harvested_rfc_crop10_ha_30mn.asc.gz")
})


context("get_mirca")
file.remove(file.path(tempdir(), list.files(tempdir(), pattern = "asc.gz$")))
test_that("get_mirca downloads an irrigated crop when specified", {
  skip_on_cran()
  unlink(file.path(tempdir(), "*asc.gz"))
  rst_mir <- get_mirca("potatoes", rainfed = FALSE, cache = FALSE)
  expect_match(list.files(tempdir(), pattern = ".asc.gz$"),
               "annual_area_harvested_irc_crop10_ha_30mn.asc.gz")
})

# test that get_mirca handles improperly entered crop names --------------------

test_that("test that get_mirca handles improperly entered crop names", {
  skip_on_cran()
  expect_error(get_mirca("potato", rainfed = TRUE, cache = FALSE))
})

test_that("test that get_mirca handles no crop names", {
  skip_on_cran()
  expect_error(get_mirca(rainfed = TRUE, cache = FALSE))
})

# test that get_mirca creates a cache directory if none exists -----------------

test_that("test that get_mirca creates a cache directory if none exists", {
  skip_on_cran()
  unlink(rappdirs::user_cache_dir("climcropr"), recursive = TRUE)
  get_mirca("potatoes", rainfed = TRUE, cache = TRUE)
  expect_true(file.exists(file.path(rappdirs::user_cache_dir("climcropr"))))
  # cleanup
  unlink(rappdirs::user_cache_dir("climcropr"), recursive = TRUE)
})

# test that get_mirca does not create a cache directory if none is specified ---

test_that("test that set_cache does not create cache dir if caching == FALSE", {
  get_mirca("potatoes", rainfed = TRUE, cache = FALSE)
  expect_true(!file.exists(file.path(rappdirs::user_cache_dir("climcropr"))))
})