tests/testthat/test-prism_set_dl_dir.R

In prism: Access Data from the Oregon State Prism Climate Project

f1 <- file.path(tempdir(), "prism", "new")
f2 <- file.path(tempdir(), "prism2")
f3 <- file.path(tempdir(), "*$.txt")

orig_prism_path <- getOption("prism.path")
teardown(options(prism.path = orig_prism_path))

test_that("prism_set_dl_dir() works", {
  expect_equal(prism_set_dl_dir(f1), f1)
  expect_true(dir.exists(f1))
  expect_equal(prism_get_dl_dir(), f1)
  expect_equal(prism_set_dl_dir(f2), f2)
  expect_true(dir.exists(f2))
  expect_equal(prism_get_dl_dir(), f2)
})

test_that("prism_set_dl_dir() fails correctly on windows", {
  skip_on_travis()
  skip_on_os(c("mac", "linux", "solaris"))
  expect_warning(expect_error(prism_set_dl_dir(f3)))
})