tests/testthat/test_ordering.R

mg1 <- graphCr("1 -> 2 <-> 3 <-> 4 <- 2", mode = "adjMatrix")

test_that("DAG topology is plausible", {
  expect_true(isTopological(mg1, topologicalOrder(mg1)))
  expect_true(isTopological(mg1, 1:4))
  expect_false(isTopological(mg1, c(2,1,3,4)))
})
rje42/MixedGraphs documentation built on March 20, 2024, 8:09 a.m.