tests/testthat/test-position_specific_conservation_data.R

In currocam/toolkit4pySCA: A set of useful functions for performing an Statistical Coupling Analysis from scratch in R and using pySCA

test_that("it works", {
  db <- pySCA_HBG2_HUMAN
  data <- position_specific_conservation_data(db)
  expect_equal(nrow(data), 139)
})
test_that("empty list gives error", {
  pairwise_sequence_identities_data(list()) %>%
    testthat::expect_error()
})