test_that("terralink_raster returns corridor output", {
  r <- terra::rast(nrows = 20, ncols = 20, xmin = 0, xmax = 20, ymin = 0, ymax = 20)
  terra::values(r) <- 0
  terra::values(r)[1:10] <- 1
  terra::values(r)[300:320] <- 1

  result <- terralink_raster(
    raster = r,
    patch_values = 1,
    budget = 200,
    min_patch_size = 3,
    max_search_distance = 50,
    units = "pixels"
  )

  expect_true(inherits(result$patches, "SpatRaster"))
  expect_true(is.data.frame(result$corridors))
  expect_true(is.list(result$summary))
})