deactivate more tests on cran

eblondel · Sep 27, 2019 · 125ed30 · 125ed30
1 parent 8e78319
commit 125ed30
Show file tree

Hide file tree

Showing 25 changed files with 70 additions and 5 deletions.
diff --git a/tests/testthat/test_ISOFreeText.R b/tests/testthat/test_ISOFreeText.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOFreeText")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOFreeText$new()
   md$addTextGroup(ISOLocalisedCharacterString$new(locale = "EN", value = "description"))

diff --git a/tests/testthat/test_ISOGeographicBoundingBox.R b/tests/testthat/test_ISOGeographicBoundingBox.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOGeographicBoundingBox")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOGeographicBoundingBox$new(minx = -180, miny = -90, maxx = 180, maxy = 90)
   xml <- md$encode()

diff --git a/tests/testthat/test_ISOGeographicDescription.R b/tests/testthat/test_ISOGeographicDescription.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOGeographicDescription")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOGeographicDescription$new()
   md$setGeographicIdentifier(ISOMetaIdentifier$new(code = "identifier"))

diff --git a/tests/testthat/test_ISOGeometricObjects.R b/tests/testthat/test_ISOGeometricObjects.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOGeometricObjects")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOGeometricObjects$new()
   md$setGeometricObjectType("surface")

diff --git a/tests/testthat/test_ISOIdentifier.R b/tests/testthat/test_ISOIdentifier.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOIdentifier")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOIdentifier$new(code = "identifier")
   expect_is(md, "ISOIdentifier")

diff --git a/tests/testthat/test_ISOImageryMetadata.R b/tests/testthat/test_ISOImageryMetadata.R
@@ -9,6 +9,7 @@ require(testthat)
 context("ISOImageryMetadata")
 
 test_that("encoding/decoding",{
+  testthat::skip_on_cran()
   #encoding
   md = ISOImageryMetadata$new()
   md$setFileIdentifier("my-metadata-identifier")
@@ -614,6 +615,7 @@ test_that("encoding/decoding",{
 })
 
 test_that("encoding/decoding - i18n",{
+  testthat::skip_on_cran()
   #encoding
   md = ISOImageryMetadata$new()
   md$setFileIdentifier("my-metadata-identifier")

diff --git a/tests/testthat/test_ISOImageryRangeElementDescription.R b/tests/testthat/test_ISOImageryRangeElementDescription.R
@@ -27,8 +27,6 @@ test_that("ISOImageryRangeElementDescription",{
 })
 
 test_that("ISOImageryRangeElementDescription - i18n",{
-  testthat::skip_on_cran()
-  testthat::skip_on_travis()
   testthat::skip_on_cran()
   testthat::skip_on_travis()
   #encoding

diff --git a/tests/testthat/test_ISOKeywords.R b/tests/testthat/test_ISOKeywords.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOKeywords")
 
 test_that("encoding - with keywords as character string",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOKeywords$new()
   md$addKeyword("keyword1")
@@ -37,7 +39,8 @@ test_that("encoding - with keywords as character string",{
 })
 
 test_that("encoding - with keywords as anchors",{
-
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOKeywords$new()
   md$addKeyword(ISOAnchor$new(name = "keyword1", href = "http://myvocabulary.geometa/keyword1"))
@@ -66,6 +69,8 @@ test_that("encoding - with keywords as anchors",{
 })
 
 test_that("encoding - i18n - with keywords as character string",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOKeywords$new()
   md$addKeyword(

diff --git a/tests/testthat/test_ISOLocalName.R b/tests/testthat/test_ISOLocalName.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOLocalName")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalName$new(value = "myvalue")
   expect_is(md, "ISOLocalName")

diff --git a/tests/testthat/test_ISOLocalisedCharacterString.R b/tests/testthat/test_ISOLocalisedCharacterString.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOLocalisedCharacterString")
 
 test_that("encoding - i18n - EN",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalisedCharacterString$new(locale = "en", value = "summary")
   expect_is(md, "ISOLocalisedCharacterString")
@@ -23,6 +25,8 @@ test_that("encoding - i18n - EN",{
 })
 
 test_that("encoding - i18n - FR",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalisedCharacterString$new(locale = "en", value = "résumé")
   expect_is(md, "ISOLocalisedCharacterString")
@@ -37,6 +41,8 @@ test_that("encoding - i18n - FR",{
 })
 
 test_that("encoding - i18n - ES",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalisedCharacterString$new(locale = "en", value = "resumen")
   expect_is(md, "ISOLocalisedCharacterString")
@@ -51,6 +57,8 @@ test_that("encoding - i18n - ES",{
 })
 
 test_that("encoding - i18n - AR",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalisedCharacterString$new(locale = "en", value = "ملخص")
   expect_is(md, "ISOLocalisedCharacterString")
@@ -65,6 +73,8 @@ test_that("encoding - i18n - AR",{
 })
 
 test_that("encoding - i18n - RU",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLocalisedCharacterString$new(locale = "en", value = "резюме")
   expect_is(md, "ISOLocalisedCharacterString")

diff --git a/tests/testthat/test_ISOMeasure.R b/tests/testthat/test_ISOMeasure.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOMeasure")
 
 test_that("ISOMeasure",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOMeasure$new(value = 1, uom = "m", useUomURI = TRUE)
   xml <- md$encode()
@@ -21,6 +23,8 @@ test_that("ISOMeasure",{
 })
 
 test_that("ISOLength",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOLength$new(value = 1, uom = "m", useUomURI = TRUE)
   xml <- md$encode()
@@ -33,6 +37,8 @@ test_that("ISOLength",{
 })
 
 test_that("ISODistance",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISODistance$new(value = 1, uom = "m", useUomURI = TRUE)
   xml <- md$encode()
@@ -45,6 +51,8 @@ test_that("ISODistance",{
 })
 
 test_that("ISOAngle",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOAngle$new(value = 1, uom = "angleunit", useUomURI = TRUE)
   xml <- md$encode()
@@ -57,6 +65,8 @@ test_that("ISOAngle",{
 })
 
 test_that("ISOScale",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOScale$new(value = 1, uom = "scaleunit", useUomURI = TRUE)
   xml <- md$encode()

diff --git a/tests/testthat/test_ISOMetaIdentifier.R b/tests/testthat/test_ISOMetaIdentifier.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOMetaIdentifier")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOMetaIdentifier$new(code = "identifier")
   expect_is(md, "ISOMetaIdentifier")

diff --git a/tests/testthat/test_ISOMetadata.R b/tests/testthat/test_ISOMetadata.R
@@ -9,6 +9,7 @@ require(testthat)
 context("ISOMetadata")
 
 test_that("encoding/decoding",{
+  testthat::skip_on_cran()
   #encoding
   md = ISOMetadata$new()
   md$setFileIdentifier("my-metadata-identifier")
@@ -337,6 +338,7 @@ test_that("encoding/decoding",{
 })
 
 test_that("encoding/decoding - i18n",{
+  testthat::skip_on_cran()
   #encoding
   md = ISOMetadata$new()
   md$setFileIdentifier("my-metadata-identifier")

diff --git a/tests/testthat/test_ISOMimeFileType.R b/tests/testthat/test_ISOMimeFileType.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOMimeFileType")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOMimeFileType$new(type = "somemimetype", name = "Mime type name")
   xml <- md$encode()

diff --git a/tests/testthat/test_ISOMultiplicity.R b/tests/testthat/test_ISOMultiplicity.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOMultiplicity")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOMultiplicity$new(lower = 1, upper = 1)
   expect_is(md, "ISOMultiplicity")

diff --git a/tests/testthat/test_ISOOnlineResource.R b/tests/testthat/test_ISOOnlineResource.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOOnlineResource")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOOnlineResource$new()
   md$setLinkage("http://somelink")
@@ -27,6 +29,8 @@ test_that("encoding",{
 })
 
 test_that("encoding - i18n",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOOnlineResource$new()
   md$setLinkage("http://somelink")

diff --git a/tests/testthat/test_ISOProcessStep.R b/tests/testthat/test_ISOProcessStep.R
@@ -64,8 +64,6 @@ test_that("encoding - with empty sources / hrefs",{
 })
 
 test_that("encoding - with empty sources / hrefs",{
-  testthat::skip_on_cran()
-  testthat::skip_on_travis()
   testthat::skip_on_cran()
   testthat::skip_on_travis()
   md <- ISOProcessStep$new()

diff --git a/tests/testthat/test_ISOScope.R b/tests/testthat/test_ISOScope.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOScope")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOScope$new()
   md$setLevel("dataset")

diff --git a/tests/testthat/test_ISOSpatialTemporalExtent.R b/tests/testthat/test_ISOSpatialTemporalExtent.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOSpatialTemporalExtent")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOSpatialTemporalExtent$new()
   start <- ISOdate(2000, 1, 12, 12, 59, 45)

diff --git a/tests/testthat/test_ISOTelephone.R b/tests/testthat/test_ISOTelephone.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOTelephone")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOTelephone$new()
   md$setVoice("myphonenumber")
@@ -25,6 +27,8 @@ test_that("encoding",{
 })
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOTelephone$new()
   md$setVoice(

diff --git a/tests/testthat/test_ISOTemporalExtent.R b/tests/testthat/test_ISOTemporalExtent.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOTemporalExtent")
 
 test_that("encoding - with GMLTimeInstant",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   te <- ISOTemporalExtent$new()
   time <- ISOdate(2000, 1, 12, 12, 59, 45)

diff --git a/tests/testthat/test_ISOTypeName.R b/tests/testthat/test_ISOTypeName.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOTypeName")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOTypeName$new()
   md$setName("name")

diff --git a/tests/testthat/test_ISOURL.R b/tests/testthat/test_ISOURL.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOURL")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOURL$new(value = "myvalue")
   expect_is(md, "ISOURL")

diff --git a/tests/testthat/test_ISOUnlimitedInteger.R b/tests/testthat/test_ISOUnlimitedInteger.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOUnlimitedInteger")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   md <- ISOUnlimitedInteger$new(value = 19L)
   expect_is(md, "ISOUnlimitedInteger")

diff --git a/tests/testthat/test_ISOVerticalExtent.R b/tests/testthat/test_ISOVerticalExtent.R
@@ -9,6 +9,8 @@ require(testthat)
 context("ISOVerticalExtent")
 
 test_that("encoding",{
+  testthat::skip_on_cran()
+  testthat::skip_on_travis()
   #encoding
   ve <- ISOVerticalExtent$new()
   ve$setMinimumValue(0)