diff --git a/tests/testthat/_snaps/anomalize.md b/tests/testthat/_snaps/anomalize.md index c56790f..43c42df 100644 --- a/tests/testthat/_snaps/anomalize.md +++ b/tests/testthat/_snaps/anomalize.md @@ -1,14 +1,5 @@ # gesd can handle low variance data - Code - low_var %>% time_decompose(count, method = "stl") %>% anomalize(remainder, - method = "gesd") %>% expect_message("Converting") - Message - frequency = 7 days - trend = 91 days - Registered S3 method overwritten by 'quantmod': - method from - as.zoo.data.frame zoo Code low_var %>% time_decompose(count, method = "twitter") %>% anomalize(remainder, method = "gesd") %>% expect_message("Converting") diff --git a/tests/testthat/test-anomalize.R b/tests/testthat/test-anomalize.R index dbcf915..ed9fb4d 100644 --- a/tests/testthat/test-anomalize.R +++ b/tests/testthat/test-anomalize.R @@ -139,11 +139,14 @@ test_that("gesd can handle low variance data", { anomalize(count, method = "gesd") %>% expect_no_error() # Capture messages in snapshots + low_var %>% + time_decompose(count, method = "stl") %>% + anomalize(remainder, method = "gesd") %>% + expect_message("Converting") %>% + expect_message("frequency") %>% + expect_message("trend") expect_snapshot({ - low_var %>% - time_decompose(count, method = "stl") %>% - anomalize(remainder, method = "gesd") %>% - expect_message("Converting") + low_var %>% time_decompose(count, method = "twitter") %>%