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