tests/testthat/test-dendro_network.R

In dendroNetwork: Create Networks of Dendrochronological Series using Pairwise Similarity

test_that("`dendro_network(sim_table(hol_rom))` results in the expected similarity table", {
  local_edition(3)
  # test graph edges and nodes
  expect_true(igraph::is_igraph(dendro_network(sim_table(hol_rom))))
  # test data class
  expect_s3_class(dendro_network(sim_table(hol_rom)), class = "igraph")
})