tests/testthat/test-check-scalar-sets.R

In acidgenomics/goalie: Assertive Check Functions

test_that("areDisjointSets", {
    expect_true(areDisjointSets(x = c("a", "b"), y = c("c", "d")))
    expect_false(areDisjointSets(x = c("a", "b"), y = c("b", "a")))
})

test_that("areIntersectingSets", {
    expect_true(areIntersectingSets(x = c("a", "b"), y = c("b", "c")))
    expect_false(areIntersectingSets(x = c("a", "b"), y = c("c", "d")))
})

test_that("areSetEqual", {
    expect_true(areSetEqual(x = c("a", "b"), y = c("b", "a")))
    expect_false(areSetEqual(x = c("a", "b"), y = c("b", "c")))
    expect_false(areSetEqual(x = c("a", "b"), y = c("b", "c")))
    expect_false(areSetEqual(x = c("b", "c"), y = c("a", "b")))
    expect_false(areSetEqual(x = c("a", "b"), y = c("a", "b", "c")))
})

test_that("isSubset", {
    expect_true(isSubset(x = "a", y = c("a", "b")))
    expect_false(isSubset(x = "c", y = c("a", "b")))
    expect_false(isSubset(NULL, 1L))
    expect_false(isSubset(1L, NULL))
})

test_that("isSuperset", {
    expect_true(
        isSuperset(
            x = colnames(datasets::ChickWeight),
            y = c("Time", "weight", "Diet")
        )
    )
    expect_false(
        isSuperset(
            x = c("Time", "weight", "Diet"),
            y = colnames(datasets::ChickWeight)
        )
    )
})