tests/testthat/test_misc.R

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

context("Testing misc")

testthat::skip_on_cran()
testthat::test_that(

	desc = "sampling_args user_adapt_delta",

	code = {
		object <- NULL
		user_dots = list(control = list(user_adapt_delta = 10))
		out <- CausalQueries:::set_sampling_args(object = object, user_dots = user_dots, user_adapt_delta = 10)
		expect_equal(out$control$adapt_delta, 10)
	}
)