tests/testthat/test-accessors.R

context("Text access of attributes from CrisprSet objects")

data("gol_clutch1")

test_that("consensusSeqs returns the correct sequence", {
    expected <- Biostrings::DNAString("GTCTTGGTCTCTCGCAGGATGCTGGAGCCA")
    alleles <- consensusSeqs(gol)
    expect_true(alleles[["-3:3D"]] == expected)
    expect_true(identical(rownames(gol$cigar_freqs), names(alleles)))
})

Try the CrispRVariants package in your browser

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

CrispRVariants documentation built on Nov. 1, 2018, 2:20 a.m.