tests/testthat/test-persian.R

In calcal: Calendrical Calculations

test_that("persian", {
  expect_equal(
    persian_date(233, 8, 1:10) |>
      cal_persian$from_rd() |>
      cal_persian$to_rd(),
    persian_date(233, 8, 1:10) |> vctrs::vec_data()
  )
  expect_equal(
    persian_date(1404, 1, 1) |> vec_data(),
    gregorian_date(2025, 3, 21) |> vec_data()
  )
  expect_equal(
    apersian_date(1404, 1, 1) |> vec_data(),
    gregorian_date(2025, 3, 20) |> vec_data()
  )
  expect_equal(
    apersian_date(1404, 1, 1) |>
      cal_apersian$from_rd() |>
      cal_apersian$to_rd(),
    739330
  )
})