tests/testthat/test-time_recompose.R

In business-science/anomalize: Tidy Anomaly Detection

test_that("errors on incorrect input", {
  expect_error(time_recompose(5))
})

test_that("time_recompose works on grouped_tbl_time", {
  grouped_recomp <- tidyverse_cran_downloads %>%
      time_decompose(count, method = "stl") %>%
      anomalize(remainder, method = "iqr") %>%
      time_recompose()
  expect_contains(names(grouped_recomp), "recomposed_l2")
})

test_that("time_recompose works on tbl_time", {
  expect_snapshot(
    single_recomp <- tidyverse_cran_downloads %>%
        dplyr::filter(package == "tidyquant") %>%
        dplyr::ungroup() %>%
        time_decompose(count, method = "stl") %>%
        anomalize(remainder, method = "iqr") %>%
        time_recompose()
  )
  expect_contains(names(single_recomp), "recomposed_l2")
})