Mise à jour pour Constellation 1.0

reseau-constellation · Mar 8, 2024 · b0df9c0 · b0df9c0
1 parent 478bb76
commit b0df9c0
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 35 deletions.
diff --git a/R/serveur.R b/R/serveur.R
@@ -38,14 +38,13 @@ installerConstellation <- function() {
 #'
 #' @param port Le numéro du port sur lequel le port sera connecté
 #' @param exe La commande pour lancer Constellation. Uniquement nécessaire pour une installation de Constellation non standard
-#' @param sfip Le dossier SFIP à utiliser (optionnel)
-#' @param orbite Le dossier du compte Constellation à utiliser (optionnel)
+#' @param dossier Le dossier du compte Constellation à utiliser (optionnel)
 #'
 #' @return Le numéro de port sur lequel le le serveur écoute désormais, et une fonction à appeler pour fermer le serveur
 #' @export
 #'
 
-lancerServeur <- function(port=NULL, sfip = NULL, orbite = NULL, exe = "constl") {
+lancerServeur <- function(port=NULL, dossier = NULL, exe = "constl") {
   # open /Applications/RStudio.app
   # https://community.rstudio.com/t/how-to-get-rstudio-ide-to-use-the-correct-terminal-path-in-mac-os-x/131528/6
 
@@ -58,11 +57,8 @@ lancerServeur <- function(port=NULL, sfip = NULL, orbite = NULL, exe = "constl")
   if (!is.null(port)) {
     commande <- c(commande, "--port", port)
   }
-  if (!is.null(sfip)) {
-    commande <- c(commande, "--doss-sfip", sfip)
-  }
-  if (!is.null(orbite)) {
-    commande <- c(commande, "--doss-orbite", orbite)
+  if (!is.null(dossier)) {
+    commande <- c(commande, "--dossier", dossier)
   }
 
   p <- processx::process$new(exe, commande, stdout = "|", stdin = "|", encoding = "UTF-8")

diff --git a/tests/testthat/test-client.R b/tests/testthat/test-client.R
@@ -1,17 +1,13 @@
 avecClientEtServeurTest <- function(code) {
   id <- uuid::UUIDgenerate()
-  dossierBase <- file.path(tempdir(), id)
-
-  dossierOrbite <- file.path(dossierBase, "orbite")
-  dossierSFIP <- file.path(dossierBase, "sfip")
+  dossier <- file.path(tempdir(), id)
 
   # Effacer le dossier temporaire une fois qu'on a fini
-  on.exit(unlink(dossierBase, recursive = TRUE), add = TRUE)
+  on.exit(unlink(dossier, recursive = TRUE), add = TRUE)
 
   résultat <- constellationR::avecClientEtServeur(
     code,
-    orbite = dossierOrbite,
-    sfip = dossierSFIP,
+    dossier = dossier,
   )
   return(résultat)
 }

diff --git a/tests/testthat/test-serveur.R b/tests/testthat/test-serveur.R
@@ -1,16 +1,12 @@
 avecServeurTest <- function(code, ...) {
   id <- uuid::UUIDgenerate()
-  dossierBase <- file.path(tempdir(), id)
-
-  dossierOrbite <- file.path(dossierBase, "orbite")
-  dossierSFIP <- file.path(dossierBase, "sfip")
+  dossier <- file.path(tempdir(), id)
 
   params <- list(...)
-  if (is.null(params$orbite)) params$orbite <- dossierOrbite
-  if (is.null(params$sfip)) params$sfip <- dossierSFIP
+  if (is.null(params$dossier)) params$dossier <- dossier
 
   # Effacer le dossier temporaire une fois qu'on a fini
-  on.exit(unlink(dossierBase, recursive = TRUE), add = TRUE)
+  on.exit(unlink(dossier, recursive = TRUE), add = TRUE)
 
   résultat <- do.call(
     constellationR::avecServeur,
@@ -50,22 +46,13 @@ testthat::test_that("lancer serveur port spécifié", {
   )
 })
 
-testthat::test_that("lancer serveur dossier orbite spécifié", {
-  dossierOrbite <- file.path(tempdir(), "monDossierOrbite")
+testthat::test_that("lancer serveur dossier Constellation spécifié", {
+  dossier <- file.path(tempdir(), "monDossierConstellation")
   avecServeurTest(
     function (port) {
-      testthat::expect_true(dir.exists(dossierOrbite))
+      testthat::expect_true(dir.exists(dossier))
     },
-    orbite = dossierOrbite
+    dossier = dossier
   )
 })
 
-testthat::test_that("lancer serveur dossier sfip spécifié", {
-  dossierSFIP <- file.path(tempdir(), "monDossierSFIP")
-  avecServeurTest(
-    function (port) {
-      testthat::expect_true(dir.exists(dossierSFIP))
-    },
-    sfip = dossierSFIP
-  )
-})