tests/testthat/test_call.assign.R

In callsync: Recording Synchronisation, Call Detection and Assignment, Audio Analysis

all_files = list.files('files', '*chunk*', full.names = T)

detections = lapply(all_files, function(file){
  wave = load.wave(file, ffilter_from = 1100)
  detections = call.detect.multiple(wave, plot_it = F)
  return(detections)
})
names(detections) = basename(all_files)

test_that('Finding files.', {

  expect_true(length(all_files) != 0)

})

# test_that('Class and end > start.', {
#
#   ca = call.assign(all_files = all_files,
#                    detections = detections,
#                    quiet = TRUE,
#                    save_files = FALSE)
#
#   expect_true(class(ca) == 'data.frame')
#   expect_true(all(ca$end > ca$start))
#
# })

# test_that('Save files, a is null.', {
#
#   td = tempdir()
#
#   ca = call.assign(all_files = all_files,
#                    detections = detections,
#                    quiet = TRUE,
#                    save_files = TRUE,
#                    path_calls = td)
#
#   expect_null(ca)
#
#   unlink(td)
#
# })