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) })