tests/testthat/test-global_similarity_matrix_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 175x175", {
  db <- pySCA_HBG2_HUMAN
  db$sequence$hd <- make.unique(db$sequence$hd)
  data <- global_similarity_matrix_data(db)
  expect_equal(nrow(data), 175)
  expect_equal(ncol(data), 175)
})
test_that("empty list gives error", {
  global_similarity_matrix_data(list()) %>%
    testthat::expect_error()
})

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