tests/testthat/test_reveal_outcomes.R

In CausalQueries: Make, Update, and Query Binary Causal Models

context(desc = "Testing realise_outcomes")

testthat::skip_on_cran()
model <- make_model("X->M->Y")

testthat::test_that(

	desc = "error when dos is not parent",

	code = {
		expect_error(realise_outcomes(model, dos = list(X = 1), node = "Y"))
	}
)

testthat::test_that(

	desc = "return when node stated",

	code = {
		expect_equal(nrow(realise_outcomes(model, dos = list(X = 1), node = "M")), 4)
	}
)


test_that(
  desc = "reveal_outcomes is deprecated",

  code = {
    model <- make_model("X->M->Y")
    expect_warning(CausalQueries:::reveal_outcomes(model, dos = list(X = 1), node = "M"))
  }
)