tests/testthat/test-cache-model.R

In r-opt/MOI: An Abstract Mathematical Optimization Interface

test_that("simple example", {
  model <- moi_cache_model()
  x <- moi_add_variable(model)
  expect_s4_class(x, "MOI_variable_index")
  expect_true(moi_supports(model, moi_variable_name))
  #expect_true(moi_supports(model, variable_index))
  moi_set(model, moi_variable_name, x, "var1")
  #x2 <- moi_get(model, variable_index, "var1")
  #expect_equal(x, x2)
})

test_that("add variables", {
  model <- moi_cache_model()
  vars <- moi_add_variables(model, 20)
  # expect_s3_class(vars, "MOI_VectorOfVariables")
  indexes <- vapply(vars, function(x) x@value, numeric(1))
  expect_equal(20, length(unique(indexes)))
})

test_that("add constrained variable", {
  model <- moi_cache_model()
  x <- moi_add_constrained_variable(model, moi_integer_set)
  expect_s4_class(x[[1]], "MOI_variable_index")
  expect_s4_class(x[[2]], "MOI_constraint_index")
})

test_that("larger example works", {
  model <- moi_cache_model()
  x <- moi_add_variables(model, 2)
  moi_set(
    model,
    moi_objective_function,
    moi_scalar_affine_function(list(
      moi_scalar_affine_term(3, x[[1]]),
      moi_scalar_affine_term(2, x[[2]])), 0)
  )
  #moi_set(model, objective_sense, MAX_SENSE)
  moi_add_constraint(
    model,
    moi_scalar_affine_function(list(moi_scalar_affine_term(1, x[[1]]),
                                moi_scalar_affine_term(1, x[[2]])), 0.0),
    moi_less_than_set(5.0)
  )
  moi_add_constraint(model, moi_single_variable(x[[1]]), moi_greater_than_set(0.0))
  moi_add_constraint(model, moi_single_variable(x[[2]]), moi_greater_than_set(-1.0))
  expect_equal(model@ptr$variables, x)
})