context("Function editBindingConstraint")


sapply(studies, function(study) {
  
  setup_study(study, sourcedir)
  opts <- antaresRead::setSimulationPath(studyPath, "input")
  
  #Create a new binding constraint
  createBindingConstraint(
    name = "myconstraint", 
    values = matrix(data = rep(0, 8760 * 3), ncol = 3), 
    enabled = FALSE, 
    timeStep = "hourly",
    operator = "both"
  )
  
  ###Write params
  # properties acces
  path_bc_ini <- file.path("input", "bindingconstraints", "bindingconstraints")
  bc <- readIni(pathIni = path_bc_ini)
  bc <- bc[[length(bc)]]
  editBindingConstraint("myconstraint", enabled = TRUE)
  
  # properties acces
  # list .ini files
  bc2 <- readIni(pathIni = path_bc_ini)
  
  bc2 <- bc2[[length(bc2)]]
  expect_true(bc2$enabled)
  
  bc2$enabled <- FALSE
  expect_true(identical(bc, bc2))
  editBindingConstraint("myconstraint", coefficients = c("a%b" = 10))
  
  ##Write coef
  bc <- antaresRead::readBindingConstraints()
  expect_true(bc$myconstraint$coefs == c("a%b" = 10))
  editBindingConstraint("myconstraint", coefficients = c("a%b" = 100))
  bc <- antaresRead::readBindingConstraints()
  expect_true(bc$myconstraint$coefs == c("a%b" = 100))
  editBindingConstraint("myconstraint", coefficients = c("b%c" = 10))
  bc <- antaresRead::readBindingConstraints()
  expect_true(identical(bc$myconstraint$coefs,c("a%b" = 100, "b%c" = 10)))
  
  
  ##Write values
  
  expect_true(sum(bc$myconstraint$values) == 0)
  editBindingConstraint("myconstraint", values = matrix(data = rep(1, 8760 * 3), ncol = 3))
  bc <- antaresRead::readBindingConstraints()
  expect_true(sum(bc$myconstraint$values) > 0 )
  
  
  # remove temporary study
  unlink(x = file.path(pathstd, "test_case"), recursive = TRUE)
  
})