tests/testthat/test-thermalGroupCapacities.R

In antaresProcessing: 'Antares' Results Processing

# context("thermalGroupCapacities")
#
#
# sapply(studyPathS, function(studyPath){
#
#   opts <- setSimulationPath(studyPath)
#
#   test_that("thermalGroupCapacities calc",{
#     Tres <- thermalGroupCapacities(opts)
#     reCl <- readClusterDesc(opts)
#     uniqueRe <- unique(reCl[, .SD, .SDcols = c("area", "group")])
#     expect_true(nrow(uniqueRe) == nrow(Tres))
#   })
#
#   if(requireNamespace("rhdf5")){
#     rhdf5::H5close()
#   }
#   if(dir.exists(pathtodelete))
#   {
#     unlink(pathtodelete, recursive = TRUE)
#   }
#
# })