tests/testthat/test-bug-10.R

In irace: Iterated Racing for Automatic Algorithm Configuration

context("bug")
skip_on_cran()
# https://github.com/MLopez-Ibanez/irace/issues/10
withr::with_output_sink("test-bug-10.Rout", {

parameters.txt <- '
algorithm    "--"             c    (as,mmas,eas,ras,acs)
localsearch  "--localsearch " c    (0, 1, 2, 3)
alpha        "--alpha "       r    (0.00, 5.00)
beta         "--beta "        r    (0.00, 10.00)
rho          "--rho "         r    (0.01, 1.00)
ants         "--ants "        i    (5, 100)
q0           "--q0 "          r    (0.0, 1.0)           | algorithm == "acs"
rasrank      "--rasranks "    i    (1, 100)             | algorithm == "ras"
elitistants  "--elitistants " i    (1, 750)             | algorithm == "eas"
nnls         "--nnls "        i    (5, 50)              | localsearch %in% c(1,2,3)
dlb          "--dlb "         c    (0, 1)               | localsearch %in% c(1,2,3)
'
target.runner <- function(experiment, scenario)
  return(list(cost = 100, call = toString(experiment)))

parameters <- irace:::readParameters(text=parameters.txt)

withr::with_options(list(warning=2), {
  scenario <- list(targetRunner = target.runner,
                   instances=1:10,
                   maxExperiments = 5000, logFile = "",
                   deterministic = TRUE,
                   elitistNewInstances = 0,
                   elitistLimit = 0,
                   elitist = 0)
  scenario <- checkScenario (scenario)
  confs <- irace(scenario = scenario, parameters = parameters)
})
})