test_that("is_incomplete_terms", {
expect_false((()))
expect_false((("b")))
expect_identical(((("b", ))), )
expect_false(((("b", "b[2]"))))
expect_error(
((("b", "b[2]", "b[4,] "))),
"^`x` must have terms with consistent parameter dimensions[.]$",
= "chk_error"
)
expect_false((("b[1]")))
expect_true((("b[2]")))
expect_false(((("b[2]", "b"))))
expect_false(((("b[1]", "b[1]", "b[2]"))))
expect_false(((("b[1]", "b[1]", "b[2]", "b[2]"))))
expect_false(((("b", "b[1]", "b[2]"))))
expect_false(((("a[1,1]", "a[1,2]", "a[2,1]", "a[2,2]"))))
expect_true(((("a[1,1]", "a[1,2]", "a[2,1]"))))
})
