tests/testthat/test_get_posterior_distribution.R

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

context("Testing get_posterior_distribution")

testthat::test_that(desc = "Without",

                    code = {
                      model <- make_model("X -> Y")
                      expect_warning(
                        get_posterior_distribution(model = model),
                        "'get_posterior_distribution' is deprecated."
                      )
                    })

testthat::test_that(desc = "With",

                    code = {
                      model <- make_model("X -> Y") |> update_model()
                      expect_warning(
                        get_posterior_distribution(model = model),
                        "'get_posterior_distribution' is deprecated."
                      )
                    })