add some test for wnd to inflate coverage

R/wnd.R

@@ -17,11 +17,12 @@ wnd_from_dim <- function(n, orig_sample_freq) {
   )
 }
 
-#' @param secs target window length in seconds. The exact window length
+#' @param time target window length in seconds or similar time units.
+#'              The exact window length
 #'             depends on the original sample frequency `orig_sample_freq`
 #' @noRd
-wnd_from_secs <- function(secs, orig_sample_freq) {
-  n <- round(secs * orig_sample_freq)
+wnd_from_time <- function(time, orig_sample_freq) {
+  n <- round(ddu(time * orig_sample_freq))
 
   wnd_from_dim(n, orig_sample_freq)
 }

tests/testthat/test-wnd.R

@@ -0,0 +1,38 @@
+test_that("wnd_from_dim works", {
+  w <- wnd_from_dim(10, u(10, "Hz"))
+
+  expect_equal(w$size_n, 10)
+  expect_true(w$size_time == u(1, "s"))
+})
+
+test_that("wnd_from_sec works", {
+  w <- wnd_from_time(u(10, "s"), u(10, "Hz"))
+
+  expect_equal(w$size_n, 100)
+  expect_true(w$size_time == u(10, "s"))
+})
+
+
+test_that("wnd_from_resolution works", {
+  w <- wnd_from_resolution(u(1, "s"), u(100, "Hz"))
+
+  expect_equal(w$size_n, 100)
+  expect_true(w$size_time == u(1, "s"))
+})
+
+test_that("wnd_from_target_size works", {
+  res <-
+    fcwt(
+      ts_sin_440[1:1000],
+      sample_freq = 44100,
+      freq_begin = 50,
+      freq_end = 1000,
+      n_freqs = 10,
+      sigma = 1
+    )
+
+  w <- wnd_from_target_size(100, res)
+
+  expect_equal(w$size_n, 10)
+  expect_true(w$size_time == 10 / u(44100, "Hz"))
+})