tests/testthat/test-dag_edge.R

In causact: Fast, Easy, and Visual Bayesian Inference

test_that("edge is created", {
  listObj1 = dag_create() %>%
    dag_node("Child Node","y") %>%
    dag_node("Parent Node","x", child = "y")
  listObj2 = dag_create() %>%
    dag_node("Child Node","y") %>%
    dag_node("Parent Node","x") %>%
    dag_edge("x","y")
  expect_equal(listObj1$edges_df$from, 2)
  expect_equal(listObj2$edges_df$from, 2)
  expect_equal(listObj1$edges_df$to, 1)
  expect_equal(listObj2$edges_df$to, 1)
  listObj3 = dag_create() %>%
    dag_node("Child Node","z") %>%
    dag_node("Parent Node1","x") %>%
    dag_node("Parent Node2","y") %>%
    dag_edge(c("x","y"),"z")
  expect_type(listObj3, "list")
})