# Locate the appropriate file of test cases
test_cases <- function(fname) {
  testthat::test_path("fixtures", paste0(fname, "_test_cases.rds"))
}