tests/testthat/test_better.spectro.R

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

wave = load.wave('files/wave_1.wav')
tf = tempfile('.pdf')
pdf(tf)


test_that('Basics.', {

  b = better.spectro(wave = wave, ylim = c(1000, 2000), xlim = c(0, 0.2))

  expect_true(all(b$yaxt >= 1000))
  expect_true(all(b$yaxt <= 2000))
  expect_true(all(b$xaxt <= 0.2))


})

test_that('Axis working.', {

  b = better.spectro(wave = wave)

  expect_true(all(b$xaxt <= 0))
  expect_true(all(b$yaxt <= 0))

})


dev.off()
unlink(tf)