tests/testthat/test_revComp.R

In ftrCOOL: Feature Extraction from Biological Sequences

context("Just testing revers Compelement functionality")

test_that("Check whether revCompm works properly",{
  revFun<-revComp(seq = "ATCGC",outputType = "char")
  expected<-c("G","C","G","A","T")
  expect_equal(revFun,expected)
})