tests/testthat/test-ms.R

In heavywatal/tumorr: R interface to tumopp, a tumor growth simulator in C++

test_that("edge_lengths works", {
  set.seed(42L)
  result = tumopp("-N32 -k1e6")
  population = result$population[[1L]]
  graph = make_igraph(population)
  exp_len = nrow(population) - 1L
  expect_vector(edge_lengths(graph), integer(), exp_len)
  expect_vector(edge_lengths(graph, mu = 1), integer(), exp_len)
  expect_vector(edge_lengths(graph, accel = 1), numeric(), exp_len)
})