test_that("Toporanga on EcoHAB",{
  data(EcoHAB)
  toporanga(EcoHAB$winner,EcoHAB$loser)->topo
  expect_equal(topo$Agent,strsplit("CIFHEDJBGA",spli="")[[1]])
  expect_equal(topo$Order,1:10)
  expect_equal(topo$Subordinates,9:0)
  expect_equal(topo$Superiors,0:9)
})