tests/testthat/test-alltopo.R

In toporanga: Topological Sort-Based Hierarchy Inference

test_that("Basic bimodal example works",{
  G<-arrange(
    tally_log(
      c(1,1,2,3),
      c(2,3,4,4)
    )
  )
  ans<-sapply(all_toposorts(G),paste,collapse="")
  expect_equal(
    sort(ans),
    c("1234","1324")
  )
})