tests/testthat/test_optimizationProblem_class.R

In prioriactions: Multi-Action Conservation Planning

test_that("new data-class", {
  # data
  x <- pproto(NULL, OptimizationProblem, data = list())
  # tests
  expect_s3_class(x, "OptimizationProblem")
})

test_that("get methods", {
  # create data
  data(sim_pu_data, sim_features_data, sim_dist_features_data,
       sim_threats_data, sim_dist_threats_data, sim_sensitivity_data,
       sim_boundary_data)

  x <- suppressWarnings(inputData(pu = sim_pu_data,
                                  features = sim_features_data,
                                  dist_features = sim_dist_features_data,
                                  threats = sim_threats_data,
                                  dist_threats = sim_dist_threats_data,
                                  sensitivity = sim_sensitivity_data,
                                  boundary = sim_boundary_data))

  p <- suppressWarnings(problem(x,
                                blm = 1,
                                curve = 1,
                                segments = 1))

  # tests
  expect_equal(p$getData("obj"), p$data$obj)
  expect_equal(p$getData("rhs"), p$data$rhs)
  expect_equal(p$getData("sense"), p$data$sense)
  expect_equal(p$getData("vtype"), p$data$vtype)
  expect_equal(p$getData("modelsense"), p$data$modelsense)
  expect_equal(p$getData("genconpow"), p$data$genconpow)
  expect_equal(p$getData("bounds"), p$data$bounds)
  expect_equal(p$getData("A"), p$data$A)
  expect_equal(p$data$args$blm, 1)
  expect_equal(p$data$args$curve, 1)
  expect_equal(p$data$args$segments, 1)
  expect_equal(p$data$args$model_type, "minimizeCosts")
})