tests/testthat/test-utc_mod_julian.R

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

context("test-utc_mod_julian")

test_that("utc_mod_julian works", {
  expect_equal(
    utc_mod_julian(as.POSIXct("1995-10-10 00:00:00", tz = "UTC")),
    50000
  )
  expect_equal(
    utc_mod_julian(as.POSIXct("2000-01-01 12:00:00", tz = "UTC")),
    51544.5
  )

  expect_equal(
    julian_mod_julian(
      mod_julian_julian(
        utc_mod_julian(as.POSIXct("2000-01-01 12:00:00", tz = "UTC"))
      )
    ),
    51544.5
  )
})