tests/testthat/test_wrassp.R

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

context("Testing that wrassp signal processing functions work in superassp")
library(readr)
library(testthat)


# nonSSFFFunctions <-c("rfcana","afdiff","affilter")
# 
# 
# testFile <- file.path("..","signalfiles","msajc003.wav")
# 
# wrassp_funs <- setdiff(names(wrassp::wrasspOutputInfos),nonSSFFFunctions)
# 
# for(f in wrassp_funs){
#   test_that(paste("Confirm that",f,"can becalled to generate valid SSFF file in superassp"),{
#     ssff <- do.call(f,list(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)
#     
#     expect_true(base::setequal(names(tfRead),tracks))
#     
#   })
# }



wrassp_funs <- c("acfana","rmsana","ksvfo","mhsfo","forest","zcrana","lpcana","larana","arfana","rfcana","cepstrum","cssSpectrum","lpsSpectrum")

#wrassp_funs <- c("lpsSpectrum")

knownLossless <- superassp:::knownLossless()

testFiles <- normalizePath(list.files(file.path("..","..","inst","samples","sustained"),full.names = TRUE))

for(f in wrassp_funs){
  for(testFile in testFiles){
    ext <- tools::file_ext(testFile)
    test_that(paste("Confirm that '",f,"' can handle files with extension '",ext,"'", sep=""),{
      if( ! ext %in% knownLossless ){
        expect_warning(ssff <- do.call(f,list(listOfFiles=testFile,toFile=FALSE)))
      }else{
        if(! ext %in% attr(get(f,"package:superassp"), "nativeFiletypes" )  ){
          expect_message(ssff <- do.call(f,list(listOfFiles=testFile,toFile=FALSE)) , regexp="Found .* recording that require conversion.*")
        }else{
          ssff <- do.call(f,list(testFile,toFile=FALSE))
        }

      }

      
      ext <- superassp::get_extension(f)
      tracks <- superassp::get_definedtracks(f)
      
      expect_true(base::setequal(names(ssff),tracks))
      
      #This checks that the generated signal track is valid / can be read in
      tf <- tempfile(fileext = ext)
      wrassp::write.AsspDataObj(ssff,file = tf)
      tfRead <- wrassp::read.AsspDataObj(fname=tf)
      
      expect_true(base::setequal(names(tfRead),tracks))
      unlink(tf,force = FALSE)
      
    })
  }

}