context("Function updateOptimizationSettings")


sapply(studies, function(study) {
  
  setup_study(study, sourcedir)
  opts <- antaresRead::setSimulationPath(studyPath, "input")
  
  
  
  
  test_that("Update an optimization parameter", {
    
    
    updateOptimizationSettings(include.hurdlecosts = "false")
    expect_false(getOption("antares")$parameters$optimization$`include-hurdlecosts`)
    
    updateOptimizationSettings(power.fluctuations = "minimize excursions")
    expect_equal(getOption("antares")$parameters$`other preferences`$`power-fluctuations`, "minimize excursions")
    
    expect_error( updateOptimizationSettings(unit.commitment.mode = "unknown"))
    
  })
  
  # remove temporary study
  unlink(x = file.path(pathstd, "test_case"), recursive = TRUE)
  
})


test_that("solver.log parameter available only if version >= 8.8", {
  
  ant_version <- "8.2.0"
  st_test <- paste0("my_study_820_", paste0(sample(letters,5),collapse = ""))
  suppressWarnings(opts <- createStudy(path = pathstd, study_name = st_test, antares_version = ant_version))
  expect_error(updateOptimizationSettings(solver.log = "true"),
               regexp = "updateOptimizationSettings: solver.log parameter is only available if using Antares >= 8.8.0"
               )
  unlink(x = opts$studyPath, recursive = TRUE)
  
  ant_version <- "8.8.0"
  st_test <- paste0("my_study_880_", paste0(sample(letters,5),collapse = ""))
  suppressWarnings(opts <- createStudy(path = pathstd, study_name = st_test, antares_version = ant_version))
  updateOptimizationSettings(solver.log = "true")
  expect_true(getOption("antares")$parameters$optimization$`solver-log`)
  unlink(x = opts$studyPath, recursive = TRUE)
})