tests/testthat/test-num_edges.R

In itsrainingdata/sparsebnUtils: Utilities for Learning Sparse Bayesian Networks

context("num.edges")

#
# THESE TESTS RELY ON A HELPER FILE
#

test_that("num.edges works on edgeLists", {
    ### Trivial case
    expect_equal(num.edges(generate_empty_edgeList()), 0)

    ### Non-trivial case
    edgeL <- generate_fixed_edgeList()
    expect_equal(num.edges(edgeL), 4)
})

test_that("num.edges works on sparsebnFit", {
    ### Trivial case
    cf <- generate_empty_sparsebnFit()
    expect_equal(num.edges(cf), 0)

    ### Non-trivial case
    cf <- generate_fixed_sparsebnFit()
    expect_equal(num.edges(cf), 4)
})

test_that("num.edges works on sparsebnPath", {
    ### Trivial case
    cp <- generate_empty_sparsebnPath()
    expect_equal(num.edges(cp), rep(0, length(cp)))

    ### Non-trivial case
    cp <- generate_fixed_sparsebnPath()
    expect_equal(num.edges(cp), rep(4, length(cp)))
})