tests/testthat/test-pairwise_sequence_identities_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("is a 192x102", {
  db <- pySCA_HBG2_HUMAN
  db$sequence$hd <- make.unique(db$sequence$hd)
  data <- pairwise_sequence_identities_data(db)
  expect_equal(nrow(data), 15400)
})
test_that("empty list gives error", {
  pairwise_sequence_identities_data(list()) %>%
  testthat::expect_error()
})

# test_that("empty list gives error", {
#   pairwise_sequence_identities_data(pySCA_HBG2_HUMAN) %>%
#     testthat::expect_warning()
# })