tests/testthat/test-cpp-validation-consistency.R

In corrselect: Correlation-Based and Model-Based Predictor Pruning

# ===========================================================================
# Regression tests for #39: findAllMaxSets(), runELS(), runBronKerbosch(), and
# greedyPruneBackend() used to each carry their own copy-pasted matrix/force_in
# validation. They now all call the same two shared helpers (validateCorMatrix(),
# validateForcedIndices() in src/utils.cpp), so a future edit to one
# validation message that misses the others would show up here as a
# mismatch rather than silently drifting. greedyPruneBackend() was added to
# this shared validation later (commit 5cf632f) but never added to this file
# alongside the other three entry points (#82).
# ===========================================================================

test_that("findAllMaxSets, runELS, runBronKerbosch, and greedyPruneBackend reject a non-square matrix identically", {
  mat_nonsquare <- matrix(1:6, nrow = 2)

  msgs <- list(
    findAllMaxSets  = tryCatch(corrselect:::findAllMaxSets(mat_nonsquare, 0.5),
                                error = conditionMessage),
    runELS          = tryCatch(corrselect:::runELS(mat_nonsquare, 0.5, integer(0)),
                                error = conditionMessage),
    runBronKerbosch = tryCatch(corrselect:::runBronKerbosch(mat_nonsquare, 0.5, integer(0), TRUE),
                                error = conditionMessage),
    greedyPruneBackend = tryCatch(corrselect:::greedyPruneBackend(mat_nonsquare, 0.5),
                                error = conditionMessage)
  )

  expect_true(all(vapply(msgs, is.character, logical(1))))
  expect_length(unique(unlist(msgs)), 1)
  expect_match(msgs$findAllMaxSets, "square")
})

test_that("findAllMaxSets, runELS, runBronKerbosch, and greedyPruneBackend reject an out-of-bounds force_in identically", {
  mat_ok <- diag(1, 3)

  msgs <- list(
    findAllMaxSets  = tryCatch(corrselect:::findAllMaxSets(mat_ok, 0.5, force_in = 5L),
                                error = conditionMessage),
    runELS          = tryCatch(corrselect:::runELS(mat_ok, 0.5, 5L),
                                error = conditionMessage),
    runBronKerbosch = tryCatch(corrselect:::runBronKerbosch(mat_ok, 0.5, 5L, TRUE),
                                error = conditionMessage),
    greedyPruneBackend = tryCatch(corrselect:::greedyPruneBackend(mat_ok, 0.5, force_in = 5L),
                                error = conditionMessage)
  )

  expect_true(all(vapply(msgs, is.character, logical(1))))
  expect_length(unique(unlist(msgs)), 1)
  expect_match(msgs$findAllMaxSets, "force_in")
})