tests/testthat/test-get_graph_stats.R

In abodein/netOmics: Multi-Omics (time-course) network-based integration and interpretation

context("get_graph_stats")

graph1 <- igraph::graph_from_data_frame(list(from = c("A", "B", "A", "D", "C", "A", "C"), 
                                             to = c("B", "C", "D", "E", "D", "F", "G")), directed = FALSE)
graph1 <- set_vertex_attr(graph = graph1, name = 'type', index = c("A","B","C"),value = "1")
graph1 <- set_vertex_attr(graph = graph1, name = 'type', index = c("D","E"),value = "2")
graph1 <- set_vertex_attr(graph = graph1, name = 'type', index = c("F", "G"),value = "3")


graph1.list <- list("X" = graph1, "Y"= graph1)

test_that("get_graph_stats fails on invalid input", {
    expect_error(get_graph_stats(X = ""))
})

test_that("get_graph_stats works", {
    expect_is(get_graph_stats(X = graph1), "data.frame")
    expect_is(get_graph_stats(X = graph1.list), "data.frame")
})