tests/testthat/test-are_all_one_letter.R

In agvgd: An R Implementation of the 'Align-GVGD' Method

test_that("are_all_one_letter()", {

  aa <- amino_acids('one_letter')
  aa2 <- c(aa, '-')
  aa3 <- c(aa, 'X')

  expect_true(are_all_one_letter(aa))
  expect_true(are_all_one_letter(aa2, exceptions = '-'))

  expect_false(are_all_one_letter(tolower(aa)))
  expect_true(are_all_one_letter(tolower(aa), ignore_case = TRUE))

  expect_true(are_all_one_letter(tolower(aa2), ignore_case = TRUE, exceptions = '-'))
  expect_true(are_all_one_letter(aa3, ignore_case = TRUE, exceptions = 'X'))
  expect_true(are_all_one_letter(aa3, ignore_case = TRUE, exceptions = 'x'))

})