tests/testthat/test-get_adjacent_sequences.R

test_that("use", {
  focal_sequence <- "VVIILTIAGNILVIMAVSLE"
  all_seqs <- get_adjacent_sequences(focal_sequence)
  expect_equal(nchar(focal_sequence) * 19, length(all_seqs))
})
richelbilderbeek/bbbq documentation built on July 27, 2023, 2:15 a.m.