tests/testthat/test-concatenate-textgrids.R

In phonfieldwork: Linguistic Phonetic Fieldwork Tools

test_that("concatenate_textgrids", {
  t1 <- system.file("extdata", "test.TextGrid", package = "phonfieldwork")
  t2 <- system.file("extdata", "post.TextGrid", package = "phonfieldwork")
  tdir <- tempdir(check = TRUE)
  file.copy(c(t1, t2), tdir)
  list.files(tdir)
  concatenate_textgrids(path = tdir, result_file_name = "concatenated")

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

  file.remove(paste0(tdir, "/", c(basename(t1), basename(t2), "concatenated.TextGrid")))
  rm(tdir)
})