tests/testthat/test-comp.R

In toporanga: Topological Sort-Based Hierarchy Inference

test_that("Components work on a cycle", {
  components(tally_log(1:3,c(2,3,1)))->z
  expect_equal(z,setNames(rep(1,3),1:3))
})

test_that("Components work on a chain", {
  components(tally_log(1:3,2:4))->z
  expect_equal(length(unique(z)),4)
})