tests/testthat/test-check_metrics.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  expect_silent(check_metrics(""))
  expect_silent(check_metrics("hull_error"))
  expect_silent(check_metrics("f1_score_3"))
  expect_silent(check_metrics("hull_error,f1_score_3"))
  expect_silent(check_metrics("f1_score_3,hull_error"))
  expect_error(check_metrics(c("f1_score_3", "f1_score_3")))
  expect_error(check_metrics(0))
  expect_error(check_metrics(-1))
  expect_error(check_metrics("nonsense"))
  expect_error(check_metrics(c()))
  expect_error(check_metrics(NA))
  expect_error(check_metrics(NULL))
  expect_error(check_metrics(Inf))
  expect_error(check_metrics(3.14))
})