From 8a6c8822c334d74757b2c0d4213d24f238e89b6f Mon Sep 17 00:00:00 2001
From: Kevin Ushey <kevinushey@gmail.com>
Date: Mon, 23 Sep 2024 11:02:42 -0700
Subject: [PATCH] skip lockfile validation tests on CRAN

---
 tests/testthat/test-lockfile-validate.R | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-lockfile-validate.R b/tests/testthat/test-lockfile-validate.R
index 40c653c2c..d89059d7e 100644
--- a/tests/testthat/test-lockfile-validate.R
+++ b/tests/testthat/test-lockfile-validate.R
@@ -1,7 +1,9 @@
 
 test_that("a known-good lockfile passes validation", {
-
+  
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
+  
   lockfile <- '
 {
   "R": {
@@ -53,11 +55,13 @@ test_that("a known-good lockfile passes validation", {
 '
   expect_no_error(lockfile_validate(lockfile = lockfile))
   expect_true(lockfile_validate(lockfile = lockfile))
+  
 })
 
 
 test_that("a known-good lockfile with extra fields passes validation", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   # Lockfile adds a R$Nickname field not present in the schema
@@ -113,10 +117,12 @@ test_that("a known-good lockfile with extra fields passes validation", {
 '
   expect_no_error(lockfile_validate(lockfile = lockfile))
   expect_true(lockfile_validate(lockfile = lockfile))
+  
 })
 
 test_that("a custom schema file can be used for successful validation", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   # Custom schema adds a required R$Nickname field present in the lockfile
@@ -166,10 +172,12 @@ test_that("a custom schema file can be used for successful validation", {
 '
   expect_no_error(lockfile_validate(lockfile = lockfile, schema = schema))
   expect_true(lockfile_validate(lockfile = lockfile, schema = schema))
+  
 })
 
 test_that("a custom schema file can be used for failed validation", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   # Custom schema adds a required R$Nickname field not present in the lockfile
@@ -218,10 +226,12 @@ test_that("a custom schema file can be used for failed validation", {
 '
 
   expect_false(lockfile_validate(lockfile = lockfile, schema = schema))
+  
 })
 
 test_that("an incorrect Packages$Hash field fails validation", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   lockfile <- '
@@ -248,10 +258,12 @@ test_that("an incorrect Packages$Hash field fails validation", {
 '
 
   expect_false(lockfile_validate(lockfile = lockfile))
+  
 })
 
 test_that("invalid JSON fails validation", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   # Packages uses [] which is not valid JSON
@@ -278,10 +290,12 @@ test_that("invalid JSON fails validation", {
 }
 '
   expect_error(lockfile_validate(lockfile = lockfile, error = TRUE))
+  
 })
 
 test_that("strict mode catches unknown keyword in provided schema", {
 
+  skip_on_cran()
   skip_if_not_installed("jsonvalidate")
 
   # Custom schema provides "Version" with "type": "UNKNOWN"
@@ -324,5 +338,7 @@ test_that("strict mode catches unknown keyword in provided schema", {
   }
 }
 '
+
   expect_error(lockfile_validate(lockfile = lockfile, strict = TRUE))
+  
 })