Error in `.check_ncores(length(names))`: 95 simultaneous processes spawned

test_that("filterWave rejects unknown inputs", {
expect_error(filterWave(waves, filter), "Can only filter a Wave or WaveMC object.")
test_that("output is the same when filter is nothing (TaggedWave)", {
test_that("output is the same when filter is nothing (Wave)", {
test_that("bandpass filter works as expected", {
fw <- noise("white", duration=44100, samp.rate=44100) |> filterWave(bandpass(1000,2000))
test_that("filterWave() works with cluster", {
filtered <- filterWave(waves, filter, cl=cl)

"Can only filter a Wave or WaveMC object."
"output is the same when filter is nothing (TaggedWave)"
"output is the same when filter is nothing (Wave)"

convert2seconds(as.POSIXct("2024-02-11 12:00"), "POSIX", origin = "unix") (`actual`) not equal to 1707652800 (`expected`).

  `actual`: 1707649200
`expected`: 1707652800

expect_error(convert2seconds(1, "dog"), "Unknown input to convert2seconds: dog")
expect_error(convert2seconds("croc", "HHMM"), "HHMM input must be numeric")
expect_equal(convert2seconds(as.POSIXct("2024-02-11 12:00"), "POSIX", origin="day"), 60*60*12)
expect_equal(convert2seconds(as.POSIXct("2024-02-11 12:00"), "POSIX", origin="unix"), 1707652800)

test_that("test windowing using filename", {
f <- system.file("extdata", "AUDIOMOTH.WAV", package="sonicscrewdriver")
f1 <- function(start, wave, window.length) {
ws <- windowing(f, window.length=10000, FUN=f1)
f2 <- function(start, wave, window.length) {
ws <- windowing(f, window.length=10000, FUN=f2, bind.wave=TRUE)
ws <- windowing(f, window.length=10000, FUN=f1, cl=cl)
ws <- windowing(f, window.length=10000, FUN=f2, bind.wave=TRUE, cl=cl)
test_that("test windowing using Wave object", {
f <- noise("white", duration=48000*5, samp.rate=48000)
test_that("Overlap gives expected results", {
f <- noise("white", duration=2000, samp.rate=48000)
ws <- windowing(f, window.length=500, window.overlap=0, FUN=f1)
ws <- windowing(f, window.length=500, window.overlap=-500, FUN=f1)
ws <- windowing(f, window.length=500, window.overlap=250, complete.windows=T, FUN=f1)
ws <- windowing(f, window.length=500, window.overlap=250, complete.windows=F, FUN=f1)
test_that("windowing() rejects incorrect input", {
expect_error(windowing(123, 4, {print("Oh")}), "Expecting a Wave object")
test_that("works as expected without pbapply installed single core", {
package.installed = function(...) { return(FALSE)}
test_that("works as expected without pbapply installed multi-core", {

"works as expected without pbapply installed single core"
"works as expected without pbapply installed multi-core"

works as expected without pbapply installed multi-core