tests/testthat/test_GSWorkspaceSettings.R

In geosapi: GeoServer REST API R Interface

# test_GSWorkspaceSettings.R
# Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
#
# Description: Unit tests for GSWorkspaceSettings.R
#=======================
require(geosapi, quietly = TRUE)
require(testthat)

context("GSWorkspaceSettings")

gsman$createWorkspace("geosapi")
minVersion <- "2.12"

test_that("CREATE workspace settings",{
  if(gsman$version$equalTo(minVersion)|gsman$version$greaterThan(minVersion)){
    settings <- GSWorkspaceSettings$new()
    created <- gsman$createWorkspaceSettings("geosapi", settings)
    expect_true(created)
  }
})

test_that("READ workspace settings",{
  if(gsman$version$equalTo(minVersion)|gsman$version$greaterThan(minVersion)){
    settings <- gsman$getWorkspaceSettings("geosapi")
    expect_true(!is.null(settings))
  }
})

test_that("UPDATE workspace settings",{
  if(gsman$version$equalTo(minVersion)|gsman$version$greaterThan(minVersion)){
    settings <- GSWorkspaceSettings$new()
    settings$setNumDecimals(4)
    settings$setVerbose(TRUE)
    updated <- gsman$updateWorkspaceSettings("geosapi", settings)
    settings2 <- gsman$getWorkspaceSettings("geosapi")
    expect_equal(settings2$numDecimals, 4)
    expect_true(settings2$verbose)
    expect_true(updated)
  }
})

test_that("DELETE workspace settings",{
  if(gsman$version$equalTo(minVersion)|gsman$version$greaterThan(minVersion)){
    deleted <- gsman$deleteWorkspaceSettings("geosapi")
    expect_true(deleted)
  }
})

gsman$deleteWorkspace("geosapi")