From 2b22ff95f9c7792d48bc12bd43f088b91121b24c Mon Sep 17 00:00:00 2001 From: Emmanuel Blondel Date: Thu, 20 Dec 2018 14:54:12 +0100 Subject: [PATCH] add upper case to ws name in tests #42 --- tests/testthat/test_GSServiceSettings.R | 30 ++++++++++++------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/tests/testthat/test_GSServiceSettings.R b/tests/testthat/test_GSServiceSettings.R index 88100c0..1995fc9 100644 --- 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") \ No newline at end of file +gsman$deleteWorkspace("geosapiWS")