tests/testthat/test-get_adapter.R

test_that("get_adapter works", {
    a <- get_adapter("test_read_2_fastqc", "pair")
    expect_output(str(a), "List of 2")
})
sunshanwen/BP4RNAseq documentation built on March 28, 2022, 5:35 p.m.