tests/testthat/test-locked.R

In multiscape: Multi-Action, Multi-Objective Spatial Planning

test_that("solve respects locked_in and locked_out planning units", {
  skip_if_no_cbc()

  toy <- toy_equivalent_basic()
  toy$pu$locked_in[1] <- TRUE
  toy$pu$locked_out[4] <- TRUE

  p <- multiscape::create_problem(
    pu = toy$pu,
    features = toy$features,
    dist_features = toy$dist_features,
    cost = "cost"
  ) |>
    multiscape::add_actions(actions = toy$actions, cost = 0) |>
    multiscape::add_effects(effects = toy$effects) |>
    multiscape::add_constraint_targets_relative(0.5) |>
    multiscape::add_constraint_locked_planning_units(locked_in = "locked_in", locked_out = "locked_out") |>
    multiscape::add_objective_min_cost(alias = "cost") |>
    multiscape::set_solver_cbc(gap_limit = 0, verbose = FALSE)

  s <- multiscape::solve(p)

  expect_s3_class(s, "SolutionSet")
  actions <- multiscape::get_actions(s)
  expect_true(is.data.frame(actions))

  selected <- actions[actions$selected > 0.5, , drop = FALSE]

  expect_true(any(selected$pu == 1))
  expect_false(any(selected$pu == 4))
})