tests/testthat/test-03-SolverOpts.R

In paleo13/rapr: Representative and Adequate Prioritization Toolkit in R

context("03-SolverOpts")

test_that("GurobiOpts generator function", {
  # generate objects
  x <- GurobiOpts()
  y <- GurobiOpts(Threads = 1L, MIPGap = 0.1, Presolve = 2L, Method = 0L,
                  TimeLimit = NA_integer_, NumberSolutions = 1L,
                  NumericFocus = 0L)
  # check defaults are correct
  expect_equal(x@Threads, y@Threads)
  expect_equal(x@MIPGap, y@MIPGap)
  expect_equal(x@Presolve, y@Presolve)
  expect_equal(x@Method, y@Method)
  expect_equal(x@TimeLimit, y@TimeLimit)
  expect_equal(x@NumberSolutions, y@NumberSolutions)
  expect_equal(x@NumericFocus, y@NumericFocus)
})

test_that("as.list.GurobiOpts ", {
  # generate objects
  x <- GurobiOpts()
  y <- as.list(x)
  # tests
  expect_equal(x@Threads, y$Threads)
  expect_equal(x@MIPGap, y$MIPGap)
  expect_equal(x@Presolve, y$Presolve)
  expect_equal(x@Method, y$Method)
  expect_equal(x@Method, y$Method)
  expect_equal(x@NumericFocus, y$NumericFocus)
  expect_true(!"TimeLimit" %in% names(y))
  expect_true(!"NumberSolutions" %in% names(y))
})

test_that("update.GurobiOpts", {
  # generate objects
  x <- GurobiOpts()
  y <- update(x, Presolve = 1L, Method = -1L, MIPGap = 0.4, TimeLimit = 5L,
              NumberSolutions = 5L, NumericFocus = 2L)
  # tests
  expect_equal(y@Method, -1L)
  expect_equal(y@Presolve, 1L)
  expect_equal(y@MIPGap, 0.4)
  expect_equal(y@TimeLimit, 5L)
  expect_equal(y@NumberSolutions, 5L)
  expect_equal(y@NumericFocus, 2L)
})


test_that("ManualOpts", {
  # generate object
  x <- ManualOpts()
  # tests
  expect_equal(x@NumberSolutions, 1L)
})

test_that("update.ManualOpts", {
  # generate object
  x <- ManualOpts()
  # tests
  expect_error(update(x, NumberSolutions = 5L))
})