tests/testthat/test-concatenate-soundfiles.R

In agricolamz/lingfieldwork: Linguistic Phonetic Fieldwork Tools

test_that("concatenate_soundfiles", {
  s1 <- system.file("extdata", "test.wav", package = "phonfieldwork")
  s2 <- system.file("extdata", "post.wav", package = "phonfieldwork")
  tdir <- tempdir()
  file.copy(c(s1, s2), tdir)
  list.files(tdir)
  concatenate_soundfiles(path = tdir, result_file_name = "concatenated")

  expect_true("concatenated.wav" %in% list.files(tdir))
  expect_true("concatenated.TextGrid" %in% list.files(tdir))

  rm(tdir)
})