tests/testthat/test-utc_julian_2000.R

In earthtide: Parallel Implementation of 'ETERNA 3.40' for Prediction and Analysis of Earth Tides

context("test-utc_julian_2000")

test_that("utc_julian_2000 works", {
  expect_equal(
    utc_julian_2000(as.POSIXct("2000-01-01 12:00:00", tz = "UTC")),
    0
  )
  expect_equal(
    utc_julian_2000(as.POSIXct("2019-01-01 12:00:00", tz = "UTC")),
    599616000 / 86400 / 36525
  )
})