tests/testthat/test_Optimizer.R

In bbotk: Black-Box Optimization Toolkit

test_that("Optimizer assertions work", {
  optimizer = MAKE_OPT()
  terminator = trm("evals")
  instance = MAKE_INST_2D_2D(terminator = terminator)
  expect_error(optimizer$optimize(instance), "does not support multi-crit objectives")

  optimizer = MAKE_OPT(properties = "multi-crit")
  terminator = trm("evals")
  instance = MAKE_INST_2D(terminator = terminator)
  expect_error(optimizer$optimize(instance), "does not support single-crit objectives")

  expect_warning({
    optimizer = MAKE_OPT(packages = "foo")
  }, "'foo' required but not installed")
  terminator = trm("evals")
  instance = MAKE_INST_2D(terminator = terminator)
  expect_error(optimizer$optimize(instance), class = "packageNotFoundError")

  optimizer = MAKE_OPT()
  terminator = trm("evals")
  instance = MAKE_INST(objective = OBJ_2D, search_space = PS_2D_DEPS,
    terminator = terminator)
  expect_error(optimizer$optimize(instance), "does not support param sets with dependencies")

  optimizer = MAKE_OPT(param_classes = "ParamLgl")
  terminator = trm("evals")
  instance = MAKE_INST_2D(terminator = terminator)
  expect_error(optimizer$optimize(instance), "does not support param types")
})

test_that("optimize return works", {
  optimizer = opt("random_search")
  terminator = trm("evals")
  instance = MAKE_INST_2D(terminator = terminator)

  z = optimizer$optimize(instance)
  expect_equal(z, instance$result)

  instance = MAKE_INST_2D_2D(terminator = terminator)

  z = optimizer$optimize(instance)
  expect_equal(z, instance$result)
})