tests/testthat/test_get_nodal_types.R

In macartan/gbiqq: Make, Update, and Query Binary Causal Models

context("Testing get_nodal_types")

testthat::skip_on_cran()
testthat::test_that(
  desc = "Condition for make_nodal_types",
  code = {
    out_true <- CausalQueries:::make_nodal_types(make_model("X -> Y"),
                                                 include_node_names = TRUE)
    expect_true(all(grepl("X", rownames(out_true$X))))
    out_false <- CausalQueries:::make_nodal_types(make_model("X -> Y"),
                                                  include_node_names = FALSE)
    expect_false(any(grepl("X", rownames(out_false$X))))
  })

testthat::test_that(
  desc = "Testing collapse_nodal_types",
  code = {
    model <- make_model("X -> Y")
    expect_equal(model$nodal_types,
                 CausalQueries:::collapse_nodal_types(model$nodal_types))
    nodal_types <- get_nodal_types(model, collapse = FALSE)
    expect_true(all(grepl(
      "X",
      CausalQueries:::collapse_nodal_types(nodal_types,
                                           include_node_names = TRUE)$X
    )))

    x <- CausalQueries:::collapse_nodal_types(nodal_types)$X
    expect_setequal(x, c("0", "1"))

    model <- make_model("X -> Y")
    nodal_types <-
      get_nodal_types(model, collapse = TRUE)
    x <- CausalQueries:::collapse_nodal_types(nodal_types)
    expect_identical(x, nodal_types)

    model$nodal_types <- NULL
    nodal_types <-
      get_nodal_types(model, collapse = TRUE)
    expect_identical(x, nodal_types)

  })