tests/testthat/test-gu.R

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

test_that("gu() | scalar test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(gu(
        hms::parse_hm("08:00"), lubridate::dminutes(10)
    ),
    hms::parse_hm("08:10")
    )

    expect_equal(gu(
        hms::parse_hm("23:30"), lubridate::dminutes(90)
    ),
    hms::parse_hm("01:00")
    )

    expect_equal(gu(
        hms::parse_hm("23:30"), lubridate::as.duration(NA)
    ),
    hms::as_hms(NA)
    )
})

test_that("gu() | vector test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    expect_equal(gu(
        c(hms::parse_hm("12:30"), hms::parse_hm("23:45")),
        c(lubridate::dminutes(10), lubridate::dminutes(70))
    ),
    c(hms::parse_hm("12:40"), hms::parse_hm("00:55"))
    )
})

test_that("gu() | error test", {
    rlang::local_options(lifecycle_verbosity = "quiet")
    
    # assert_hms(se, lower = hms::hms(0))
    expect_error(gu(
        se = 1, si = lubridate::duration(1)
    ),
    "Assertion on 'se' failed"
    )

    expect_error(gu(
        se = hms::hms(-1), si = lubridate::duration(1)
    ),
    "Assertion on 'se' failed"
    )

    # assert_duration(si, lower = lubridate::duration(0))
    expect_error(gu(
        se = hms::hms(1), si = 1
    ),
    "Assertion on 'si' failed"
    )

    expect_error(gu(
        se = hms::hms(1), si = lubridate::duration(-1)
    ),
    "Assertion on 'si' failed"
    )

    # assert_identical(se, si, type = "length")
    expect_error(gu(
        se = hms::hms(1), si = c(lubridate::duration(1), lubridate::duration(1))
    ))
})