test_that("jdate_update works as expected", {
    expect_identical(
        jdate_update(jdate("1403-02-08"), list(year = 1402, month = 3, day = 1:2)),
        jdate(c("1402-03-01", "1402-03-02"))
    )

    expect_error(jdate_update(jdate("1403-02-08"), list(m = 1)))
})

test_that("jdatetime_update works as expected", {
    dt1 <- jdatetime("1401-06-30 22:00:00", "Asia/Tehran")
    dt2 <- jdatetime("1401-01-02 01:00:00", "Asia/Tehran")
    expect_identical(
        jdatetime_update(dt1, list(second = 1:2)),
        dt1 + 1:2
    )

    expect_identical(
        jdatetime_update(dt1, list(hour = 23), ambiguous = "latest"),
        jdatetime("1401-06-30 23:00:00", "Asia/Tehran", ambiguous = "latest")
    )

    expect_identical(
        jdatetime_update(dt1, list(hour = 23)),
        jdatetime("1401-06-30 23:00:00", "Asia/Tehran", ambiguous = "earliest")
    )

    expect_identical(
        jdatetime_update(dt2, list(hour = 0)),
        jdatetime(NA_real_, "Asia/Tehran")
    )

    expect_error(jdatetime_update(dt1, list(m = 1)))
})

test_that("jdatetime_update works as expected when input is consulted for resolving ambiguous time", {
    tz = "Asia/Tehran"
    dt1 <- jdatetime("1401-06-30 23:00:00", tz, ambiguous = "latest")
    dt2 <- jdatetime("1401-06-30 23:00:00", tz, ambiguous = "earliest")

    expect_identical(
        jdatetime_update(dt1, list(second = 1)),
        jdatetime("1401-06-30 23:00:01", tz, ambiguous = "latest")
    )

    expect_identical(
        jdatetime_update(dt2, list(second = 1)),
        jdatetime("1401-06-30 23:00:01", tz, ambiguous = "earliest")
    )

    expect_identical(
        jdatetime_update(dt1, list(year = 1400)),
        jdatetime("1400-06-30 23:00:00", tz, ambiguous = "latest")
    )

    #This should not happen in practice. I just want to document internal code behavior
    fields <- list(year = 1400L, month = 6L, day = rep(30L, 3), hour = 23L, minute = 0L, second = 0L)
    fields <- vec_recycle_common(!!!fields, .size = 3)
    expect_identical(
        jdatetime_make_with_reference_cpp(
            fields, tz,
            c(dt1, dt2, jdatetime(NA_real_, tzone = tz))
        ) |> jdatetime(tz),
        c(jdatetime("1400-06-30 23:00:00", tz, ambiguous = "latest"),
          jdatetime("1400-06-30 23:00:00", tz, ambiguous = "earliest"),
          jdatetime(NA_real_, tz))
    )
})