tests/testthat/test-model-utilities.R

In churon: 'ONNX Runtime' Integration

test_that("example model paths are accessible", {
  # Test that model directory exists in the package
  model_dir <- system.file("model", package = "churon")
  expect_true(dir.exists(model_dir))

  # Check for expected model files
  model_files <- list.files(model_dir, pattern = "\\.onnx$", full.names = TRUE)
  expect_true(
    length(model_files) > 0,
    info = "At least one model should be bundled"
  )
  expect_true(
    "mnist.onnx" %in% basename(model_files),
    info = "MNIST model should be bundled"
  )
})

test_that("model file validation works", {
  # Test with valid model path
  model_dir <- system.file("model", package = "churon")
  model_files <- list.files(model_dir, pattern = "\\.onnx$", full.names = TRUE)

  if (length(model_files) > 0) {
    # Test that model files exist and are readable
    for (model_file in model_files) {
      expect_true(file.exists(model_file))
      expect_true(
        file.access(model_file, mode = 4) == 0,
        info = paste(model_file, "should be readable")
      )
      expect_true(
        file.size(model_file) > 0,
        info = paste(model_file, "should not be empty")
      )
    }
  }
})

test_that("invalid model paths are handled correctly", {
  # Test with non-existent file
  expect_error(
    onnx_session("/path/to/nonexistent/model.onnx"),
    "Model file not found"
  )
})