add upper case to ws name in tests #42

eblondel · Dec 20, 2018 · 2b22ff9 · 2b22ff9
1 parent d340224
commit 2b22ff9
Showing 1 changed file with 15 additions and 15 deletions.
diff --git a/tests/testthat/test_GSServiceSettings.R b/tests/testthat/test_GSServiceSettings.R
@@ -8,41 +8,41 @@ require(testthat)
 
 context("GSServiceSettings")
 
-gsman$createWorkspace("geosapi")
+gsman$createWorkspace("geosapiWS")
 settings <- GSWorkspaceSettings$new()
-created <- gsman$createWorkspaceSettings("geosapi", settings)
+created <- gsman$createWorkspaceSettings("geosapiWS", settings)
 
 test_that("Enable/Disable WMS",{
-  enabled <- gsman$enableWMS("geosapi")
+  enabled <- gsman$enableWMS("geosapiWS")
   expect_true(enabled)
-  wms_settings <- gsman$getWmsSettings("geosapi")
+  wms_settings <- gsman$getWmsSettings("geosapiWS")
   expect_true(wms_settings$enabled)
-  disabled <- gsman$disableWMS("geosapi")
+  disabled <- gsman$disableWMS("geosapiWS")
   expect_true(disabled)
-  wms_settings <- gsman$getWmsSettings("geosapi")
+  wms_settings <- gsman$getWmsSettings("geosapiWS")
   expect_false(wms_settings$enabled)
 })
 
 test_that("Enable/Disable WFS",{
-  enabled <- gsman$enableWFS("geosapi")
+  enabled <- gsman$enableWFS("geosapiWS")
   expect_true(enabled)
-  wfs_settings <- gsman$getWfsSettings("geosapi")
+  wfs_settings <- gsman$getWfsSettings("geosapiWS")
   expect_true(wfs_settings$enabled)
-  disabled <- gsman$disableWFS("geosapi")
+  disabled <- gsman$disableWFS("geosapiWS")
   expect_true(disabled)
-  wfs_settings <- gsman$getWfsSettings("geosapi")
+  wfs_settings <- gsman$getWfsSettings("geosapiWS")
   expect_false(wfs_settings$enabled)
 })
 
 test_that("Enable/Disable WCS",{
-  enabled <- gsman$enableWCS("geosapi")
+  enabled <- gsman$enableWCS("geosapiWS")
   expect_true(enabled)
-  wcs_settings <- gsman$getWcsSettings("geosapi")
+  wcs_settings <- gsman$getWcsSettings("geosapiWS")
   expect_true(wcs_settings$enabled)
-  disabled <- gsman$disableWCS("geosapi")
+  disabled <- gsman$disableWCS("geosapiWS")
   expect_true(disabled)
-  wcs_settings <- gsman$getWcsSettings("geosapi")
+  wcs_settings <- gsman$getWcsSettings("geosapiWS")
   expect_false(wcs_settings$enabled)
 })
 
-gsman$deleteWorkspace("geosapi")
+gsman$deleteWorkspace("geosapiWS")