tests_errcheck_times.R
In wsyn: Wavelet Approaches to Studies of Synchrony in Ecology and Other Fields

context("errcheck_times")

test_that("",{
  expect_error(errcheck_times("nonnumeric","notrealfunc"),
               "Error in errcheck_times called by notrealfunc: times must be numeric")
  expect_error(errcheck_times(1,"notrealfunc"),
               "Error in errcheck_times called by notrealfunc: times must be a vector")
  expect_error(errcheck_times(c(1,2,3,NA),"notrealfunc"),
               "Error in errcheck_times called by notrealfunc: times must not contain NAs, NaNs, Infs")
  expect_error(errcheck_times(c(1,3,4,5),"notrealfunc"),
               "Error in errcheck_times called by notrealfunc: times must be unit spaced; output timescales in units of cycles per sampling interval")
})