tests/testthat/test_map_query_to_nodal_type.R

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

context(desc = "Testing map_query_to_nodal_type")

testthat::skip_on_cran()
testthat::test_that(

	desc = "print and class of summaries",

	code = {
		model <- make_model('X -> M -> Y; X->Y')
		query <- '(Y[X=0]>Y[X=1])'
		x <- map_query_to_nodal_type(model, query)
		w <- summary(x)
		expect_true(class(x) == "nodal_types_query")
		expect_true("summaryDefault" %in% class(w))
    expect_output(print(x), "Nodal types adding weight to query")
    b <- capture.output(print(x))
    test_output <- " query :  (Y[X=0]>Y[X=1]) "
    expect_false(any(grepl(test_output, b, fixed = TRUE)))
    query <- '(Y[X=0]>Y[X=1])'
		model <- make_model('X -> Y')
		x <- map_query_to_nodal_type(model, query)
		b <- capture.output(print(x))
		expect_true(any(grepl(test_output, b, fixed = TRUE)))
	}
)