tests/testthat/testCheckValidInput.R

In raywoo32/modCluster: modCluster

# testCheckValidInput.R


load("./exampleEdge.Rda")
load("./exampleVert.Rda")

library(igraph)

test_that("Throw error for bad input edges", {
  expect_error(checkValidInput(edges[, c(1,3)], vert))
})

test_that("Throw error for bad input vertex", {
  expect_error(checkValidInput(edges, vert$NAME))
})

test_that("Throw error for bad input no edge weights", {
  expect_error(checkValidInput(edges[c("GENE1","GENE2")], vert))
})

test_that("Give graph for valid input", {
  valid <- checkValidInput(edges, vert)
  expect_equal(igraph::is_igraph(valid), TRUE)
})

# Unload Environment
on.exit(
  rm(list = ls(all.names = TRUE))
)