tests/tinytest.R

In bnosac/golgotha: Contextualised Embeddings and Language Modelling using BERT

library(golgotha)
if(requireNamespace("tinytest", quietly = TRUE)){
  if(tinytest::at_home()){
    tinytest::test_package("golgotha")
  }
  if(identical(Sys.getenv("TT_AT_CI"), "TRUE")){
    #tests <- c("test-download.R", "test-transformer-default.R", "test-distilbert.R")
    #tinytest::test_package("golgotha", pattern = "test-check.R|test-transformer-default.R|test-distilbert.R")
    tests <- c("test-distilbert.R", "test-download.R", "test-gpt2.R",
               "test-roberta.R", "test-transformer-default.R", "test-transformer-xl.R",
               "test-xlm-roberta.R", "test-xlm.R", "test-xlnet.R")
    tests <- list.files(pattern = ".R$", path = system.file(package = "golgotha", "tinytest"))
    tests <- setdiff(tests, "test-transformer-xl.R")
    tinytest::test_package("golgotha", pattern = paste(tests, collapse = "|"))
  }
}