# 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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.