tests/testthat/test-sum_time.R

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

test_that("sum_time() | linear test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(sum_time(
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        lubridate::dhours(1),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        lubridate::as_datetime("1970-01-01 20:00:00"),
        as.POSIXlt(lubridate::as_datetime( "1970-01-01 01:00:00")),
        lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01")),
        cycle = NULL, reverse = FALSE, na_rm = FALSE
    ),
    lubridate::dhours(30)
    )

    expect_equal(sum_time(
        hms::as_hms(NA), # !
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        lubridate::dhours(1),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        lubridate::as_datetime("1970-01-01 20:00:00"),
        as.POSIXlt(lubridate::as_datetime( "1970-01-01 01:00:00")),
        lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01")),
        cycle = NULL, reverse = FALSE,
        na_rm = FALSE # !
    ),
    lubridate::as.duration(NA)
    )

    expect_equal(sum_time(
        hms::as_hms(NA), # !
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        lubridate::dhours(1),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        lubridate::as_datetime("1970-01-01 20:00:00"),
        as.POSIXlt(lubridate::as_datetime( "1970-01-01 01:00:00")),
        lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01")),
        cycle = NULL, reverse = FALSE,
        na_rm = TRUE # !
    ),
    lubridate::dhours(30)
    )
})

test_that("sum_time() | circular test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(sum_time(
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        lubridate::dhours(1),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        lubridate::as_datetime("1970-01-01 20:00:00"),
        as.POSIXlt(lubridate::as_datetime( "1970-01-01 01:00:00")),
        lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01")),
        cycle = lubridate::ddays(), # !
        reverse = FALSE, na_rm = FALSE
    ),
    lubridate::dhours(6) # 30 - 24
    )

    expect_equal(sum_time(
        hms::as_hms(NA),
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        lubridate::dhours(1),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        lubridate::as_datetime("1970-01-01 20:00:00"),
        as.POSIXlt(lubridate::as_datetime( "1970-01-01 01:00:00")),
        lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01")),
        cycle = lubridate::ddays(), reverse = FALSE, na_rm = TRUE
    ),
    lubridate::dhours(6)
    )

    expect_equal(sum_time(
        c(lubridate::dhours(-1), lubridate::dhours(-2)),
        c(lubridate::dhours(-1), lubridate::dhours(-21)),
        cycle = lubridate::ddays(), reverse = FALSE, na_rm = FALSE
    ),
    lubridate::dhours(-1)
    )

    expect_equal(sum_time(
        c(lubridate::dhours(-1), lubridate::dhours(-2)),
        c(lubridate::dhours(-1), lubridate::dhours(-21)),
        cycle = lubridate::ddays(), reverse = TRUE, na_rm = FALSE
    ),
    lubridate::dhours(23)
    )
})

test_that("vct_sum_time()| linear test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(vct_sum_time(
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        c(lubridate::dhours(1), lubridate::dhours(1)),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        c(lubridate::as_datetime("1970-01-01 20:00:00"),
          lubridate::as_datetime("1970-01-01 10:00:00")
        ),
        as.POSIXlt(
            c(lubridate::as_datetime("1970-01-01 01:00:00"),
              lubridate::as_datetime("1970-01-01 02:00:00"))
        ),
        c(lubridate::as.interval(lubridate::dhours(4), as.Date("1970-01-01")),
          lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01"))
        ),
        cycle = NULL, reverse = FALSE, na_rm = FALSE
    ),
    c(lubridate::dhours(30), lubridate::dhours(17))
    )

    expect_equal(vct_sum_time(
        c(hms::as_hms(NA), hms::as_hms(NA)), # !
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        c(lubridate::dhours(1), lubridate::dhours(1)),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        c(lubridate::as_datetime("1970-01-01 20:00:00"),
          lubridate::as_datetime("1970-01-01 10:00:00")
        ),
        as.POSIXlt(
            c(lubridate::as_datetime("1970-01-01 01:00:00"),
              lubridate::as_datetime("1970-01-01 02:00:00"))
        ),
        c(lubridate::as.interval(lubridate::dhours(4), as.Date("1970-01-01")),
          lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01"))
        ),
        cycle = NULL, reverse = FALSE,
        na_rm = FALSE
    ), # !
    c(lubridate::as.duration(NA), lubridate::as.duration(NA))
    )

    expect_equal(vct_sum_time(
        c(hms::as_hms(NA), hms::as_hms(NA)), # !
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        c(lubridate::dhours(1), lubridate::dhours(1)),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        c(lubridate::as_datetime("1970-01-01 20:00:00"),
          lubridate::as_datetime("1970-01-01 10:00:00")
        ),
        as.POSIXlt(
            c(lubridate::as_datetime("1970-01-01 01:00:00"),
              lubridate::as_datetime("1970-01-01 02:00:00"))
        ),
        c(lubridate::as.interval(lubridate::dhours(4), as.Date("1970-01-01")),
          lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01"))
        ),
        cycle = NULL, reverse = FALSE,
        na_rm = TRUE
    ), # !
    c(lubridate::dhours(30), lubridate::dhours(17))
    )
})

test_that("vct_sum_time()| circular test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(vct_sum_time(
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        c(lubridate::dhours(1), lubridate::dhours(1)),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        c(lubridate::as_datetime("1970-01-01 20:00:00"),
          lubridate::as_datetime("1970-01-01 10:00:00")
        ),
        as.POSIXlt(
            c(lubridate::as_datetime("1970-01-01 01:00:00"),
              lubridate::as_datetime("1970-01-01 02:00:00"))
        ),
        c(lubridate::as.interval(lubridate::dhours(4), as.Date("1970-01-01")),
          lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01"))
        ),
        cycle = lubridate::ddays(), # !
        reverse = FALSE, na_rm = FALSE
    ),
    c(lubridate::dhours(6), lubridate::dhours(17))
    )

    expect_equal(vct_sum_time(
        c(hms::as_hms(NA), hms::as_hms(NA)),
        c(lubridate::dhours(1), lubridate::dminutes(30)),
        c(lubridate::dhours(1), lubridate::dhours(1)),
        c(as.difftime(1, units = "hours"), as.difftime(30, units = "mins")),
        c(hms::parse_hm("02:00"), hms::parse_hm("02:00")),
        c(lubridate::as_datetime("1970-01-01 20:00:00"),
          lubridate::as_datetime("1970-01-01 10:00:00")
        ),
        as.POSIXlt(
            c(lubridate::as_datetime("1970-01-01 01:00:00"),
              lubridate::as_datetime( "1970-01-01 02:00:00"))
        ),
        c(lubridate::as.interval(lubridate::dhours(4), as.Date("1970-01-01")),
          lubridate::as.interval(lubridate::dhours(1), as.Date("1970-01-01"))
        ),
        cycle = lubridate::ddays(), # !
        reverse = FALSE, na_rm = TRUE
    ),
    c(lubridate::dhours(6), lubridate::dhours(17))
    )

    expect_equal(vct_sum_time(
        c(lubridate::dhours(-24), lubridate::dhours(-1)),
        c(lubridate::dhours(-6), lubridate::dhours(-48)),
        cycle = lubridate::ddays(), reverse = FALSE, na_rm = FALSE
    ),
    c(lubridate::dhours(-6), lubridate::dhours(-1))
    )

    expect_equal(vct_sum_time(
        c(lubridate::dhours(-24), lubridate::dhours(-1)),
        c(lubridate::dhours(-6), lubridate::dhours(-48)),
        cycle = lubridate::ddays(), reverse = TRUE, na_rm = FALSE
    ),
    c(lubridate::dhours(18), lubridate::dhours(23))
    )
})

test_that("sum_time_build() | error test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    # lapply(out, checkmate::assert_multi_class, classes)
    expect_error(sum_time_build(
        1, vectorize = FALSE, cycle = NULL, reverse = TRUE, na_rm = FALSE
    ),
    "Assertion on 'X\\[\\[i\\]\\]' failed"
    )

    expect_error(sum_time_build(
        lubridate::hours(), vectorize = FALSE, cycle = NULL, reverse = TRUE,
        na_rm = FALSE
    ),
    "Assertion on 'X\\[\\[i\\]\\]' failed"
    )

    # checkmate::assert_flag(vectorize)
    expect_error(sum_time_build(
        hms::hms(1), vectorize = "", cycle = NULL, reverse = TRUE, na_rm = TRUE
    ),
    "Assertion on 'vectorize' failed"
    )

    # checkmate::assert_multi_class(cycle, c("numeric", "Duration"),
    #                               null.ok = TRUE)
    expect_error(sum_time_build(
        hms::hms(1), vectorize = FALSE, cycle = "", reverse = TRUE,
        na_rm = FALSE
    ),
    "Assertion on 'cycle' failed"
    )

    # checkmate::assert_number(cycle, lower = 0, null.ok = TRUE)

    expect_error(sum_time_build(
        hms::hms(1), vectorize = FALSE, cycle = -1, reverse = TRUE,
        na_rm = FALSE
    ),
    "Assertion on 'cycle' failed"
    )

    expect_error(sum_time_build(
        hms::hms(1), vectorize = FALSE, cycle = lubridate::dhours(-1),
        reverse = TRUE, na_rm = FALSE
    ),
    "Assertion on 'cycle' failed"
    )

    # checkmate::assert_flag(reverse)

    expect_error(sum_time_build(
        hms::hms(1), vectorize = FALSE, cycle = NULL, reverse = 1, na_rm = TRUE
    ),
    "Assertion on 'reverse' failed"
    )

    # checkmate::assert_flag(na_rm)
    expect_error(sum_time_build(
        hms::hms(1), vectorize = FALSE, cycle = NULL, reverse = TRUE,
        na_rm = ""
    ),
    "Assertion on 'na_rm' failed"
    )

    # if (isTRUE(vectorize) &&
    #     !(length(unique(vapply(out, length, integer(1)))) == 1)) {
    expect_error(sum_time_build(
        hms::hms(1), c(hms::hms(1), hms::hms(1)), vectorize = TRUE,
        reverse = TRUE, na_rm = TRUE
    ),
    "All values in '...' must "
    )
})