Test .spectrogram_mmad_power()

edwbaker · Aug 10, 2024 · 591018c · 591018c
1 parent eac8ad9
commit 591018c
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-scikit-maad-classes.R b/tests/testthat/test-scikit-maad-classes.R
@@ -0,0 +1,17 @@
+test_that(".spectrogram_maad_power works as expected", {
+  f <- f <- system.file("extdata", "AUDIOMOTH.WAV", package="sonicscrewdriver")
+  w <- readWave(f)
+
+  spec <- .spectrogram_maad_power(w)
+  expect_s4_class(spec, "spectrogram_maad")
+
+  spec <- .spectrogram_maad_power(tagWave(w))
+  expect_s4_class(spec, "spectrogram_maad")
+
+  w <- tuneR::WaveMC(tuneR::stereo(w,w))
+  spec <- .spectrogram_maad_power(w)
+  expect_s4_class(spec, "spectrogram_maad")
+
+  spec <- .spectrogram_maad_power(maad_spectrogram(w))
+  expect_s4_class(spec, "spectrogram_maad")
+})