test_that("validate function exists and has correct parameters", {
  # Test that the validate function exists and can be called
  # Note: We don't run the actual validation due to time constraints
  # Check that the function exists
  expect_true(exists("validate"))
  expect_true(is.function(validate))
  # Check that the function has the expected parameters
  validate_formals <- formals(validate)
  expect_true("clut" %in% names(validate_formals))
  expect_true("simple" %in% names(validate_formals))
  # Check default parameter values
  expect_equal(validate_formals$simple, TRUE)
})

test_that("validate function input validation works", {
  # Test that the function properly validates inputs without running full validation
  # Test with invalid CLUT (should error before running validation)
  expect_error(validate(clut = "not_a_dataframe"))
  expect_error(validate(clut = data.frame())) # empty dataframe

  # Test with invalid simple parameter
  expect_error(validate(simple = "not_logical"))
})