remove the "result-change" test

lschneiderbauer · Jun 14, 2024 · 23610fa · 23610fa
1 parent 3068925
commit 23610fa
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 32 deletions.
diff --git a/tests/testthat/_snaps/fcwt.md b/tests/testthat/_snaps/fcwt.md
diff --git a/tests/testthat/test-fcwt.R b/tests/testthat/test-fcwt.R
@@ -46,27 +46,3 @@ test_that("fcwt() errs if frequency specs are higher than Nyquist frequency", {
     )
   )
 })
-
-test_that("fcwt() result does not change", {
-  res <-
-    as.data.frame(
-      fcwt(
-        ts_sin_440[1:1000],
-        sample_freq = 44100,
-        freq_begin = 50,
-        freq_end = 1000,
-        n_freqs = 5,
-        sigma = 1
-      ) |>
-        agg(10)
-    )
-
-  values <- res$value[order(res$time, res$freq)]
-
-  expect_snapshot_value(
-    values,
-    # ridiculous tolerance due to large differences between AVX / non AVX
-    tolerance = 10^-2,
-    style = "json2"
-  )
-})