added missing skip_on_cran()'s

mustberuss · Oct 11, 2024 · b341811 · b341811
1 parent 55dc0aa
commit b341811
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-api-bugs.R b/tests/testthat/test-api-bugs.R
@@ -34,6 +34,8 @@ test_that("there is case sensitivity on string equals", {
 })
 
 test_that("string vs text operators behave differently", {
+  skip_on_cran()
+
   # # reported to the API team PVS-1147
   query <- qry_funs$begins(assignee_organization = "johnson")
   a <- search_pv(query, endpoint = "assignee")
@@ -165,6 +167,8 @@ test_that("API returns all requested groups", {
 
 # test-fetch-each-field.R
 test_that("each field in fieldsdf can be retrieved", {
+  skip_on_cran()
+
   # Iterate through fieldsdf, requesting one field at a time to see if the field
   # really can be retrieved.  What fields work and don't work is constantly changing
   # as the new version of the api is being developed

diff --git a/tests/testthat/test-fetch-each-field.R b/tests/testthat/test-fetch-each-field.R
@@ -5,6 +5,8 @@
 # "patents assignees.assignee_id not returned"  probably the _id thing, assignees.assignee probably returned
 
 test_that("each field in fieldsdf can be retrieved", {
+  skip_on_cran()
+
   # Iterate through fieldsdf, requesting one field at a time to see if the field
   # really can be retrieved.  What fields work and don't work is constantly changing
   # as the new version of the api is being developed

diff --git a/tests/testthat/test-search-pv.R b/tests/testthat/test-search-pv.R
@@ -304,6 +304,8 @@ test_that("individual fields are still broken", {
 # see get_post_body in search-pv.R)
 
 test_that("posts and gets return the same data", {
+  skip_on_cran()
+
   bad_eps <- c(
     "cpc_subclasses",
     "location" # Error: Invalid field: location_latitude
@@ -341,6 +343,8 @@ test_that("posts and gets return the same data", {
 })
 
 test_that("nested shorthand produces the same results as fully qualified ones", {
+  skip_on_cran()
+
   # the API now allows a shorthand in the fields/f: parameter
   # just the group name will retrieve all that group's attributes
   # This is indirectly testing our parse of the OpenAPI object and actual API responses

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -1,4 +1,6 @@
 test_that("we can convert endpoints to their plural form and back", {
+  skip_on_cran()
+
   eps <- get_endpoints()
   z <- vapply(eps, function(x) {
     to_singular(to_plural(x))