tests/testthat/test-utils.R

In periodicDNA: Set of tools to identify periodic occurrences of k-mers in DNA sequences

context("test-utils")

test_that("shuffleSeq works", {
    expect_true({
        data(ce11_proms_seqs)
        shuffleSeq(ce11_proms_seqs)
        shuffleSeq(ce11_proms_seqs[[1]])
        TRUE
    })
})

test_that("namedListToLongFormat", {
    expect_true({
        data(ce11_proms)
        ce11_proms <- alignToTSS(deconvolveBidirectionalPromoters(
            ce11_proms
        ), 0, 200)
        l <- lapply(
            c('Ubiq.', 'Germline'), 
            function(TISSUE) {
                data.frame(
                    n = names(ce11_proms[ce11_proms$which.tissues == TISSUE]), 
                    t = 1
                )
            }
        )
        names(l) <- c('Ubiq.', 'Germline')
        d <- namedListToLongFormat(l)
        TRUE
    })
})