tests/testthat/test-gu.R

In gipsousp/mctq: Munich ChronoType Questionnaire Tools

test_that("gu() | scalar test", {
  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", {
  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", {
  # 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))
  ))
})