Make test more robust

business-science · Dec 6, 2023 · 827973b · 827973b
1 parent 57d7e44
commit 827973b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 13 deletions.
diff --git 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
@@ -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") %>%