test_that("minTriadicClosure runs and returns an object", {
  stat <- minTriadicClosure(2, 1.5)
  expect_true(!is.null(stat))
})