Nothing
# test_GSVersion.R
# Author: Emmanuel Blondel <emmanuel.blondel1@gmail.com>
#
# Description: Unit tests for GSVersion.R
#=======================
require(geosapi, quietly = TRUE)
require(testthat)
context("GSVersion")
test_that("geoserver versions",{
#gsVersion <- gsman$version
#expect_is(gsVersion, "GSVersion")
#GS_VERSION <- "2.12.1"
#expect_equal(gsVersion$version, GS_VERSION)
#expect_is(gsVersion$value, "list")
#expect_equal(length(gsVersion$value), 3L)
#expect_true(gsVersion$lowerThan("3.0.x"))
#expect_true(gsVersion$lowerThan("2.11.3"))
#expect_true(gsVersion$lowerThan("2.11.2"))
#expect_true(gsVersion$greaterThan("1.5.1"))
#expect_true(gsVersion$greaterThan("2.5.1"))
#expect_true(gsVersion$greaterThan("2.10.x"))
#expect_false(gsVersion$lowerThan("2.5.1"))
#expect_false(gsVersion$greaterThan(GS_VERSION))
#expect_false(gsVersion$lowerThan(GS_VERSION))
#expect_true(gsVersion$equalTo(GS_VERSION))
#expect_false(gsVersion$greaterThan("3.0.0"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.