tests/testthat/test-frequencyStats.R

context("frequencyStats")

test_that("inputs are correct", {
  expect_error(frequencyStats("string"), "frequencyStats expects a Wave object")
  expect_error(frequencyStats(1), "frequencyStats expects a Wave object")
})

test_that("plotting is ok", {
  data(sheep, package="seewave")
  expect_silent(frequencyStats(sheep, plot=TRUE))
})

Try the sonicscrewdriver package in your browser

Any scripts or data that you put into this service are public.

sonicscrewdriver documentation built on May 2, 2021, 5:06 p.m.