tests/testthat/test-time_functions.R

In LCBC-UiO/Questionnaires: Package with functions to calculate components and sums for LCBC questionnaires

# test_that("check that time_hms2deciH works", {
#   time_hms2deciH(c("00:20:12", "22:30:10", "08:21:58", "01:21:20", "01:40:30"))
# })

test_that("check that time_deci2period works", {
  expect_equal(time_deci2period(c(4.3, 2.7, 1, .04, NA)),
               c("04:18", "02:42", "01:00", "00:02", NA_character_)
  )
  
  expect_equal(time_deci2period(c(4.543, 2.722, 1, .0404, NA), type = "hms"),
               c("04:32:35", "02:43:19", "01:00:00", "00:02:25", NA_character_)
  )
  
  expect_equal(time_deci2period(c(4.543, 2.722, 1, .0404), unit = "minute", type = "hms"),
               c("00:04:33", "00:02:43", "00:01:00", "00:00:02")
  )
  
  expect_equal(time_deci2period(c(4.543, 2.722, 1, .0404), unit = "second", type = "hms"),
               c("00:00:05", "00:00:03", "00:00:01", "00:00:00")
  )
})

test_that("check that time_alter works", {
  expect_equal(time_alter(c("00:20", "22:30", "08:21", "01:21", "01:40")),
               c(20, 1350, 501, 81, 100))
  
  expect_equal(time_alter(c("00:20", "22:30", "08:21", "01:21", "01:40"), "hour"),
               c(0.333333333333333, 22.5, 8.35, 1.35, 1.66666666666667))
  
  expect_equal(time_alter(c("00:20", "22:30", "08:21", "01:21", "01:40"), "second"),
               c(1200, 81000, 30060, 4860, 6000))
  
})

test_that("check that is.hms works", {
  
  t <- data.frame(
    hm = c("00:20", "22:30", "08:21", "01:21", "01:40"),
    hms = c("00:20:00", "22:30:12", "08:21:14", "01:21:49", "01:40:37"),
    strinsAsFactor = FALSE
  )
  expect_false(is_hm(t$hm))
  expect_false(is_hms(t$hms))
  
  expect_true(is_hm(lubridate::hm(t$hm)))
  expect_true(is_hms(lubridate::hms(t$hms)))
  
})


test_that("is_hms works", {
  expect_false(is_hms("13:24:11"))
  
  #Does not work, because the class is now Period??
  #expect_true(is_hms(lubridate::hms("13:24:11")))
  
})

test_that("time_factor works", {
  
  expect_equal(
    suppressWarnings(
      time_factor(c("12:23", "15:59", "22:10", "8:13", NA_character_), time_func = lubridate::hm)
    ),
    structure(
      c(2L, 2L, 4L, 1L, NA),
      .Label = c("morning", "afternoon", "evening", "night"),
      class = c("ordered", "factor"))
  )
})