tests/testthat/test-ref_sequence.R

test_that("ref_sequence()", {

  alignment_ATM <- read_alignment('ATM')
  ref_seq <- ref_sequence(alignment_ATM)

  expect_true(is.atomic(ref_seq))
  expect_true(is.character(ref_seq))
})
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.