test_that("bug32", {
  ### To regenerate the data
  ## library(irace)
  ## parameters <- irace:::readParameters(text='p "" r (0,1)')
  ## target.runner <- function(experiment, scenario)
  ##   list(cost = experiment[['configuration']]['p'], call = toString(experiment))

  ## scenario <- list(targetRunner = target.runner,
  ##                  instances=1:5,
  ##                  maxExperiments = 250, logFile = "bug32.Rdata")
  ## scenario <- checkScenario (scenario)
  ## confs <- irace(scenario = scenario, parameters = parameters)
  summarise_by_instance(read_logfile("bug32.Rdata"))
})