tests/testthat/test-marriagegraph-slice.R

In dogesr: Work with the Doges/Dogaresse Dataset

library(igraph)

orso <- "Orso"
manin <- "Ludovico Manin"

test_that("'to' slices work", {
  to.doge <- "Pietro IV Candiano"
  this.marriage.graph <- marriage.graph.slice(to=to.doge)
  expect_type(this.marriage.graph,"list")
  expect_equal(V(this.marriage.graph)["Pietro"]$name,"Pietro")
  expect_equal(V(this.marriage.graph)["Candiano"]$name,"Candiano")
})


test_that("'from' slices work", {
  from.doge <- "Pietro IV Candiano"
  this.marriage.graph <- marriage.graph.slice(from=from.doge)
  expect_type(this.marriage.graph,"list")
  expect_equal(V(this.marriage.graph)["Manin"]$name,"Manin")
  expect_equal(V(this.marriage.graph)["Candiano"]$name,"Candiano")
})

test_that("full slices work", {
  from.doge <- "Pietro IV Candiano"
  to.doge <- "Francesco Erizzo"
  this.marriage.graph <- marriage.graph.slice(from=from.doge,to=to.doge)
  expect_type(this.marriage.graph,"list")
  expect_equal(V(this.marriage.graph)["Candiano"]$name,"Candiano")
  expect_equal(V(this.marriage.graph)["Orseolo"]$name,"Orseolo")
})