skip tests that rely on vdat_call to error

Author: mhpob

tests/testthat/test-vdat_inspect.R

@@ -132,6 +132,8 @@ test_that("vdat_inspect invisibly returns a data frame", {
 })
 
 test_that("errors appropriately", {
+  skip_on_cran()
+
   expect_error(
     vdat_inspect("gibberish"),
     "Is the location of gibberish correct"

tests/testthat/test-vdat_template.R

@@ -6,19 +6,25 @@ test_that("error if not csv", {
 })
 
 test_that("partial matching works", {
+  skip_on_cran()
+
   expect_equal(
     vdat_template(),
     vdat_template(format = "csv")
   )
 })
 
 test_that("print works", {
+  skip_on_cran()
+
   expect_output(
     vdat_template(print = TRUE)
   )
 })
 
 test_that("correct types", {
+  skip_on_cran()
+
   template <- vdat_template()
 
   expect_type(template, "list")

tests/testthat/test-vdat_to_csv.R

@@ -146,6 +146,8 @@ test_that("errors if multiple files are provided", {
 
 
 test_that("errors if file can't be found", {
+  skip_on_cran()
+
   expect_error(
     vdat_to_csv("mising_file"),
     "Is the location of mising_file correct"

tests/testthat/test-vdat_to_json.R

@@ -146,6 +146,8 @@ test_that("errors if multiple files are provided", {
 
 
 test_that("errors if file can't be found", {
+  skip_on_cran()
+
   expect_error(
     vdat_to_json("mising_file"),
     "Is the location of mising_file correct"