tests/testthat/test-generate_oligo.r

context("Testing oligonucleotide generation")

test_that("Generating oligonucleotide of length 1", {
    expect_equal(generate_oligo(1), c("A", "C", "G", "T"))
    })

test_that("Generating oligonucleotide of length 2", {
    expect_equal(generate_oligo(2), c("AA", "AC", "AG", "AT", "CA", "CC", "CG",
    "CT", "GA", "GC", "GG", "GT", "TA", "TC", "TG", "TT"))
    })
J-Moravec/sighunt documentation built on May 7, 2019, 6:46 a.m.