tests/testthat/test-get_iers.R

context("test-get_iers")

test_that("get iers works", {
  
  testthat::skip_on_cran()
  testthat::skip_on_travis()
  
  eop <- get_iers()
  expect_s3_class(eop, 'data.frame')
  expect_equal(ncol(eop), 8L)
  expect_gt(nrow(eop), 20990)
  
})
jkennel/earthtide documentation built on Oct. 11, 2022, 11:02 p.m.