tests/testthat/test_choose_metric.R

In ModelOriented/FairModels: Flexible Tool for Bias Detection, Visualization, and Mitigation

test_that("Test choose_metric", {
  expect_equal(as.character(choose_metric(fobject)$metric), "FPR")

  expect_error(choose_metric(fobject, "I dont exist"))

  cm <- choose_metric(fobject, "TPR")
  cm_plot <- plot(cm)

  expect_s3_class(cm_plot, "ggplot")
})