tests/testthat/test_python.R

In humlab-speech/superassp: A speech signal processing using various framworks using a wrassp-like interface

context("Testing Python signal processing functions")
library(readr)
library(testthat)
library(superassp)
library(reticulate)

testFile <- file.path("..","signalfiles","msajc003.wav")
# crepe not working

python_funs <- c("pyin","seenc","aperiodicities","yin","swipe","reaper","rapt","reaper_pm","harvest","dio","yaapt")
# 137:"crepe","kaldi_pitch",


for(f in python_funs){
  test_that(paste("Confirm that",f,"can generate valid SSFF files"),{
    ssff <- do.call(f,list(listOfFiles=testFile,toFile=FALSE))
    
    ext <- superassp::get_extension(f)
    tracks <- superassp::get_definedtracks(f)
    
    expect_true(base::setequal(names(ssff),tracks))
    
    tf <- tempfile(fileext = ext)
    wrassp::write.AsspDataObj(ssff,file = tf)
    tfRead <- wrassp::read.AsspDataObj(fname=tf)
    #cat(paste(names(tfRead),collapse = "-"))
    #cat(paste(tracks,collapse = "-"))
    expect_true(base::setequal(names(tfRead),tracks))
    Sys.sleep(0.5)
  })
}