tests/testthat/test-generateRandomCodonsPerAA.R

In caggtaagtat/ModCon: Modifying splice site usage by changing the mRNP code, while maintaining the genetic code

test_that("generateRandomCodonsPerAA works for example AA seq", {
  x <- generateRandomCodonsPerAA('Lys')
  x <- x %in% c("AAA", "AAG")
  expect_equal(x, TRUE)
})


test_that("calculateHZEIint works for example sequence", {
  x <- generateRandomCodonsPerAA(c('Lys','Lys'))
  expect_is(x, "character")
})