tests/testthat/test_map_query_to_causal_types.R

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

context("Testing map_query_to_causal_type")

testthat::skip_on_cran()
testthat::test_that(

	desc = "print statement",

	code = {
		model <- make_model('X -> M -> Y; X->Y')
		query <- '(Y[X=1] > Y[X=0]) & (M[X=0]==1)'
		x <- map_query_to_causal_type(model, query)
		out <- capture.output(print(x))
		expect_equal(length(out), 17)

		# print odd number of causal types
		model <- make_model('X -> Y')
		query <- '(Y[X=1] > Y[X=0]) & (X == 0)'
		x <- map_query_to_causal_type(model, query)
		out <- capture.output(CausalQueries:::print.summary.causal_types(x))
		expect_equal(length(out), 10)

		# Other objects
		x <- list()
		class(x) <- "causal_type"
		out <- capture.output(CausalQueries:::print.summary.causal_types(x))
		expect_equal(out[1], "list()")
	}
)