update test to put inside testhat

rte-antares-rpackage · Jun 27, 2024 · e9109a5 · e9109a5
1 parent 7cad99c
commit e9109a5
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/tests/testthat/test-readAntares_STclusters.R b/tests/testthat/test-readAntares_STclusters.R
@@ -1,12 +1,11 @@
 #Copyright © 2016 RTE Réseau de transport d’électricité
 
-context("Function readAntares (ST clusters)")
 
-path_study_test <- grep(pattern = "87", x = studyPathSV8, value = TRUE)
 
-opts <- setSimulationPath(path_study_test,simulation="20240105-0934eco")
 
 test_that("ST clusters importation is ok", {
+  path_study_test <- grep(pattern = "87", x = studyPathSV8, value = TRUE)
+  opts <- setSimulationPath(path_study_test,simulation="20240105-0934eco")
 
   clustersST <- readAntares(clustersST="all",timeStep="annual",opts = opts)$clustersST
   expect_true(all(opts$areasWithSTClusters %in% clustersST$area))