tests/testthat/helper-python-fixtures.R

In neuromapr: Spatial Null Models and Transforms for Brain Map Comparison

fixture_dir <- function() {
  testthat::test_path("fixtures", "python")
}

skip_if_no_python_fixtures <- function() {
  dir <- fixture_dir()
  if (!dir.exists(dir) || length(list.files(dir, pattern = "\\.json$")) == 0) {
    testthat::skip(paste(
      "Python reference fixtures not found",
      "(run tools/generate-reference-data.py)"
    ))
  }
}

load_python_fixture <- function(name) {
  path <- file.path(fixture_dir(), paste0(name, ".json"))
  if (!file.exists(path)) {
    testthat::skip(paste0("Fixture not found: ", name, ".json"))
  }
  jsonlite::fromJSON(path, simplifyVector = TRUE)
}