tests/testthat/test-adjacency.R

In llrs/BaseSet: Working with Sets the Tidy Way

context("test-adjacency")

test_that("adjacency_element works", {
    x <- list("a" = letters[1:5], "b" = LETTERS[3:7])
    a <- tidySet(x)
    expect_error(out <- adjacency_element(a), NA)
    expect_is(out, "matrix")
    expect_true(all(diag(out) == 1))
    expect_equal(out["a", "C"], 0)
})

test_that("adjacency_set works", {
    x <- list("a" = letters[1:5], "b" = LETTERS[3:7])
    a <- tidySet(x)
    expect_error(out <- adjacency_set(a), NA)
    expect_is(out, "matrix")
    expect_true(all(diag(out) == 1))
    expect_equal(out["a", "b"], 0)
})

test_that("adjacency works", {
    x <- list("a" = letters[1:5], "b" = LETTERS[3:7])
    a <- tidySet(x)
    expect_null(expect_warning(adjacency(a)))

    b <- activate(a, "relations")
    expect_true(is.null(adjacency(b)))
    b <- activate(a, "sets")
    expect_is(adjacency(b), "matrix")
    b <- activate(a, "elements")
    expect_is(adjacency(b), "matrix")
})