tests/testthat/test-impute_time.R

In wolfeclw/circleclust: Spatiotemporal Clustering for Personal Location Data

test_that("imputed time", {
  d_imputed <- zoo_trip %>%
    dplyr::mutate(ID = 'test') %>%
    impute_time("Date_Time", fill_cols = 'ID')

  imputed <- nrow(d_imputed)
  n_id <- as.numeric(table(d_imputed$ID))

  expect_equal(imputed, 10408)
  expect_equal(n_id, 10408)
})