tests/testthat/test.find_start_codon_cpp.R

In zcolburn/evolution: Genetic Algorithm For Protein Engineering

context("Find start codon cpp")

test_that(
  "find_start codon can find a start codon",
  {
    expect_that(
      {
        .find_start_codon_cpp(
          c("A","A","T","G","C","A","A","T","C","A","T","A","G","A")
        )
      },
      equals(2)
    )
  }
)

test_that(
  "find_start returns NA when there is no start codon",
  {
    expect_true(
      {
        is.na(.find_start_codon_cpp(
          c("A","A","A","G","C","A","A","T","C","A","T","A","G","A")
        ))
      }
    )
  }
)