tests/testthat/test-parse_evaluate_filenames.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  evaluate_filenames <- c(
    get_gcaer_filename("f1_score_3.csv"),
    get_gcaer_filename("f1_score_5.csv"),
    get_gcaer_filename("f1_scores_pops_epoch_1.csv")
  )
  evaluate_results <- parse_evaluate_filenames(
    evaluate_filenames = evaluate_filenames,
    epoch = 1
  )
  expect_silent(check_evaluate_results(evaluate_results))
})

test_that("abuse", {
  evaluate_filenames <- c(
    get_gcaer_filename("f1_score_3.csv"),
    get_gcaer_filename("f1_scores_pops_epoch_1.csv"),
    get_gcaer_filename("f1_scores_pops_epoch_1.csv")
  )
  expect_error(
    parse_evaluate_filenames(
      evaluate_filenames = evaluate_filenames,
      epoch = 1
    ),
    "Must detect exactly one filename containing '_pops_epoch_'"
  )
})