test_that("fcwt() returns a vector of expected length", {
  expect_length(
    fcwt(
      ts_sin_440,
      sample_freq = 44100,
      freq_begin = 50,
      freq_end = 1000,
      n_freqs = 10,
      sigma = 1
    ),
    44100 * 10
  )

  expect_length(
    fcwt(
      ts_sin_440,
      sample_freq = 44100,
      freq_begin = 50,
      freq_end = 1000,
      n_freqs = 10,
      sigma = 10
    ),
    44100 * 10
  )
})

test_that("fcwt() optional arguments do work", {
  expect_no_error(
    fcwt(
      ts_sin_440,
      sample_freq = 44100,
      n_freqs = 10
    )
  )
})

test_that("fcwt() errs if frequency specs are higher than Nyquist frequency", {
  expect_error(
    fcwt(
      ts_sin_440,
      sample_freq = 44100,
      freq_begin = 50,
      freq_end = 25000,
      n_freqs = 10,
      sigma = 1
    )
  )
})

test_that("fcwt() result does not change", {
  res <-
    as.data.frame(
      fcwt(
        ts_sin_440,
        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"
  )
})