tests/testthat/test-round_time.R

In mctq: Tools to Process the Munich ChronoType Questionnaire (MCTQ)

test_that("round_time() | scalar test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(
        round_time(lubridate::dmilliseconds(123456789)),
        lubridate::duration(123457)
    )

    expect_equal(
        round_time(as.difftime(12345.6789, units = "secs")),
        as.difftime(12346, units = "secs")
        )

    expect_equal(round_time(hms::as_hms(12345.6789)), hms::hms(12346))

    expect_equal(
        round_time(lubridate::as_datetime(12345.6789, tz = "EST")),
        lubridate::as_datetime(12346, tz = "EST")
        )

    expect_equal(round_time(
        as.POSIXlt(lubridate::as_datetime(12345.6789, tz = "EST"))
    ),
    as.POSIXlt(lubridate::as_datetime(12346, tz = "EST"))
    )

    object <- as.POSIXlt(lubridate::as_datetime(12345.6789, tz = "EST"))
    object$sec <- 70.6789
    expect_equal(
        round_time(object)$sec,
        as.POSIXlt(lubridate::as_datetime(12371, tz = "EST"))$sec
    )
})

test_that("round_time() | vector test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(round_time(
        c(hms::hms(12345.6789), hms::as_hms(98765.4321))
    ),
    c(hms::hms(12346), hms::as_hms(98765))
    )
})

test_that("round_time() | error test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    # checkmate::assert_multi_class(x, classes)
    expect_error(round_time(1), "Assertion on 'x' failed")
})