tests/testthat/test-is_align_mat_class.R

test_that("is_align_mat_class", {

  m <- matrix('S', nrow = 2, ncol = 2)
  expect_false(is_align_mat_class(m))
  expect_true(is_align_mat_class(add_align_mat_class(m)))

})
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.