tests/testthat/test-query_webdata.R

In geoknife: Web-Processing of Large Gridded Datasets

context("query for variables")

test_that("can't query for variables w/o a url", {
  testthat::skip_on_cran()
  expect_error(query(webdata(), 'variables'), 'url cannot be NA for fabric argument when querying for available variables')
})

context("query for times")

test_that("can't query for times w/o a variable", {
  testthat::skip_on_cran()
  wd <- readRDS("data/test_webdata_fabric.rds")
  variables(wd) <- NA
  expect_error(query(wd, 'times'), "variables cannot be NA for fabric argument when querying for available time range")
})

test_that("query for times warns w/ multiple variables", {
  testthat::skip_on_cran()
  wd <- readRDS("data/test_webdata_fabric.rds")
  variables(wd) <- query(wd, 'variables')
  expect_true(length(variables(wd)) > 1) # make sure this is actually being tested
  expect_warning(query(wd, 'times'), 'variables is > 1, using ')
})

test_that("query works for times with base dataset", {
  testthat::skip_on_cran()
  wd <- readRDS("data/test_webdata_fabric.rds")
  times.out <- query(wd, 'times')
  expect_is(times.out, "POSIXct")
  expect_false(any(is.na(times.out)))
})

test_that("bad url query returns NAs", {
  testthat::skip_on_cran()
  wd <- webdata('prism', url='https://cida.usgs.gov/')
  suppressWarnings(times.out <- query(wd, 'times'))
  expect_true(all(is.na(times.out)))
})