tests/testthat/test.aaList.R

In Peptides: Calculate Indices and Theoretical Physicochemical Properties of Protein Sequences

test_that("all amino acids are uppercase letters", {
  amino_acids <- aaList()
  expect_true(all(amino_acids %in% LETTERS))
})

test_that("Combining all amino acids is a valid peptide", {
  polypeptide <- paste0(aaList(), collapse = "")
  expect_silent(aaCheck(polypeptide))
})