tests/testthat/test-dataprep.R

In Athospd/mestrado: Meu mestrado

library(testthat)
library(mestrado)
library(tuneR)

mp3_dir <- system.file("mp3_sample", package = "mestrado")
mp3_files <- list.files(mp3_dir, full.names = TRUE)

temp_dir <- tempdir()
temp_dir <- gsub("\\\\", "/", temp_dir) # fix windows '\\' issue

test_that("tidy_audio_dir works", {
  wavs <- tidy_audio_dir(mp3_files, temp_dir)
  new_audio_file <- gsub("mp3$", "wav", mp3_files)
  new_audio_file <- gsub("^.+/", paste0(temp_dir, "/"), new_audio_file)
  expect_equal(new_audio_file, wavs)
})