tests/testthat/test-times_webdata.R

In geoknife: Web-Processing of Large Gridded Datasets

context("Test time settings for inputs")


test_that("check using a POSIX, and that the tz is honored and converted", {
  t <- geoknife:::geotime(as.POSIXct("2012-11-04",tz="America/Chicago"))
  expect_equal(attr(t, 'tzone'), "UTC")
  expect_is(t, 'POSIXct')
})

test_that("check using a POSIX w/o tz, it gets UTC", {
  t <- geoknife:::geotime(as.POSIXct("2012-11-04"))
  expect_equal(attr(t, 'tzone'), "UTC")
  expect_is(t, 'POSIXct')
})

test_that("fails when times is more than 2 elements", {
  testthat::skip_on_cran()
  wd <- webdata('prism')
  expect_error(times(wd) <- c("2012-11-04","2012-11-05","2012-11-06"))
})

test_that("warning with geotime class", {
  expect_warning(geoknife:::geotime(3))
})

test_that("fails when start later than stop", {
  testthat::skip_on_cran()
  wd <- webdata('prism')
  expect_error(times(wd) <- c("2012-11-04","2012-11-02"))
})

test_that("check using a string, it gets UTC", {
  t <- geoknife:::geotime("2012-11-04")
  expect_equal(attr(t, 'tzone'), "UTC")
  expect_is(t, 'POSIXct')
  
  expect_equal(t, geoknife:::geotime(as.POSIXct("2012-11-04")))
  
  
})