tests/testthat/test_checkPairedEnd.R

test_that("checkPairedEnd works correctly", {
    fileP <- system.file("extdata", "ex1.bam", package="Rsamtools")
    p <- checkPairedEnd(fileP)
    fileS <- system.file("extdata","s1.sorted.bam", package = "strandCheckR")
    s <- checkPairedEnd(fileS)
    expect_true(p)
    expect_false(s)
})
UofABioinformaticsHub/strandCheckR documentation built on Feb. 12, 2025, 11:15 a.m.