tests/testthat/test_union_single.R

context("union_single")

test_that("'union_single.BiocSet()' works",
{
    es1 <- BiocSet(set1 = letters[c(1:10)], set2 = letters[c(4:20)])

    tbl <- union_single(es1)
    expect_identical(dim(es_element(tbl)), c(20L, 1L))
    expect_identical(dim(es_set(tbl)), c(1L, 1L))
    expect_identical(dim(es_elementset(tbl)), c(20L, 2L))
})
Bioconductor/BiocSet documentation built on May 3, 2024, 8:24 a.m.