tests/testthat/test_cbass_error_handling.R

In jjn13/clustRviz: Convex Clustering and Bi-Clustering via Algorithmic Regularization

context("CBASS() Error Handling")

test_that("CBASS() fails with non-finite numerical input", {
  ps <- presidential_speech

  ps[1,1] <- Inf; expect_error(CBASS(ps))
})

test_that("CBASS() errors early with incorrect input", {
  # Pre-processing parameters must be boolean flags
  expect_error(CBASS(presidential_speech, X.center.global = NA))
  expect_error(CBASS(presidential_speech, X.center.global = c(TRUE, FALSE)))

  # Check `exact` argument
  expect_error(CARP(presidential_speech, exact = "unknown"))
  expect_error(CARP(presidential_speech, exact = NA))
  expect_error(CARP(presidential_speech, exact = c(TRUE, FALSE)))
  expect_error(CARP(presidential_speech, exact = 1L))

  # Check `back_track` argument
  expect_error(CARP(presidential_speech, back_track = "unknown"))
  expect_error(CARP(presidential_speech, back_track = NA))
  expect_error(CARP(presidential_speech, back_track = c(TRUE, FALSE)))
  expect_error(CARP(presidential_speech, back_track = 1L))

  # Must use a t > 1
  expect_error(CBASS(presidential_speech, t = 1))
  expect_error(CBASS(presidential_speech, t = 0))
  expect_error(CBASS(presidential_speech, t = -3))
  expect_error(CBASS(presidential_speech, t = NA))
  expect_error(CBASS(presidential_speech, t = c(1.3, 1.2)))

  # Fail on unknown flags
  expect_error(CBASS(presidential_speech, flag="unknown"), regexp = "flag")
  expect_error(CBASS(presidential_speech, "value"), regexp = "Unknown")
})