tests/testthat/testthat-timezone-modify.R

In AustralianAntarcticDivision/raadtools: Tools for Synoptic Environmental Spatial Data

context("test-timezone-modify.R")
# sst <- sstfiles()
# ice <- icefiles()
# wind <- windfiles()
# curr <- currentsfiles()
# amps <- raadtools::amps_d1files()
# oc <- raadtools::ocfiles()
 #ssh <- raadtools::sshfiles()
ffr <- function(x) unclass(min(x$date))
#ref <- c(ffr(sst), ffr(ice), ffr(wind), ffr(curr), ffr(amps), ffr(oc), ffr(ssh))
ref <- as.integer(c(368150400, 278208000, 283996800, 725846400, 1445774400, 1025654400, 
         725846400))

ffw <- function(x) {x <- as.integer(c(x)); attributes(x) <- NULL; x}
test_that("date time underlying values don't change", {
  expect_equal(ffw(getZ(readsst(latest = FALSE))), ref[1])
  expect_equal(ffw(getZ(readice(latest = FALSE))), ref[2])
  expect_equal(ffw(getZ(readwind(latest = FALSE))[1]), ref[3])
  expect_equal(ffw(getZ(readcurr(latest = FALSE))[1]), ref[4])
  expect_equal(ffw(getZ(readamps_d1wind(latest = FALSE))[1]), ref[5])
  expect_equal(ffw(oc_sochla_files()$date[1]), ref[6])
  expect_equal(ffw(getZ(readssh(latest = FALSE))), ref[7])

})