tests/testthat/test_dataImport.R

In DChIPRep: DChIPRep - Analysis of chromatin modification ChIP-Seq data with replication

library(DESeq2)

context("DChIPRep data import")

test_that("dataImport_works", {
    directory <- file.path(system.file("extdata", package="DChIPRep"))
    data(exampleSampleTable)
    res <- importData(exampleSampleTable, directory)
    expect_is(res, "DChIPRepResults")
})