tests/testthat/test_long_non_guanine_seqs.R

context("Long non-guanine sequences")

test_that("nothing found in long non-guanine sequences (should be fast)", {
  expect_equal(length(pqsfinder(DNAString(strrep("TA", times = 2000000)), min_score = 26)), 0)
})

Try the pqsfinder package in your browser

Any scripts or data that you put into this service are public.

pqsfinder documentation built on Nov. 8, 2020, 5:52 p.m.