tests/testthat/test-read_popgraph.R

In dyerlab/popgraph: This is an R package that constructs and manipulates population graphs

context("read_popgraph.R")

test_that("testing", {

  file <- system.file("extdata","lopho.pgraph",package="popgraph")
  if( file == "")
    file <- "/Users/rodney/Documents/Dropbox/R/popgraph/popgraph/inst/extdata/lopho.pgraph"
  
  require(igraph)
  graph <- read_popgraph( file )
  
  
  expect_that( graph, is_a("igraph") )
  expect_that( length( V(graph) ), equals(21) )
  expect_that( length( E(graph) ), equals(50) )
  expect_true( is.weighted(graph))
  
}
)