diff --git a/tests/testthat/test-rix.R b/tests/testthat/test-rix.R index 88bda9e2..62fb8878 100644 --- a/tests/testthat/test-rix.R +++ b/tests/testthat/test-rix.R @@ -1,4 +1,5 @@ testthat::test_that("rix(), ide is 'rstudio', Linux", { + skip_on_cran() skip_if(Sys.info()["sysname"] == "Darwin") path_default_nix <- paste0( @@ -48,6 +49,7 @@ testthat::test_that("rix(), ide is 'rstudio', Linux", { testthat::test_that("rix(), ide is 'other' or 'code'", { + skip_on_cran() path_default_nix <- paste0( tempdir(), paste0(sample(letters, 5), collapse = "") ) @@ -114,6 +116,7 @@ testthat::test_that("rix(), ide is 'other' or 'code'", { testthat::test_that("Quarto gets added to sys packages", { + skip_on_cran() path_default_nix <- normalizePath(tempdir()) save_default_nix_test <- function(pkgs, interface, path_default_nix) { @@ -162,6 +165,7 @@ testthat::test_that("Quarto gets added to sys packages", { testthat::test_that("If on darwin and ide = rstudio, raise warning", { skip_if(Sys.info()["sysname"] != "Darwin") + skip_on_cran() path_default_nix <- normalizePath(tempdir()) @@ -217,6 +221,7 @@ testthat::test_that("If R version is 4.4.0, raise warning", { }) testthat::test_that("If R version is <= 4.1.1, raise warning", { + skip_on_cran() path_default_nix <- tempdir() save_default_nix_test <- function(path_default_nix) { @@ -272,6 +277,7 @@ testthat::test_that("If on ide = rstudio, but no R packages, raise error", { }) testthat::test_that("If R version is == 3.5.3, raise warning", { + skip_on_cran() path_default_nix <- tempdir() save_default_nix_test <- function(path_default_nix) { @@ -299,6 +305,7 @@ testthat::test_that("If R version is == 3.5.3, raise warning", { }) testthat::test_that("rix(), bleeding_edge", { + skip_on_cran() path_default_nix <- paste0( tempdir(), paste0(sample(letters, 5), collapse = "") ) @@ -348,6 +355,7 @@ testthat::test_that("rix(), bleeding_edge", { }) testthat::test_that("rix(), frozen_edge", { + skip_on_cran() # because of the sed command, this will only work on Linux skip_if(Sys.info()["sysname"] != "Linux") @@ -412,6 +420,7 @@ testthat::test_that("rix(), frozen_edge", { testthat::test_that("rix(), only one Github package", { + skip_on_cran() path_default_nix <- paste0( tempdir(), paste0(sample(letters, 5), collapse = "") ) @@ -451,6 +460,7 @@ testthat::test_that("rix(), only one Github package", { testthat::test_that("rix(), conclusion message", { + skip_on_cran() path_default_nix <- paste0( tempdir(), paste0(sample(letters, 5), collapse = "") ) @@ -482,6 +492,7 @@ testthat::test_that("rix(), conclusion message", { testthat::test_that("rix(), warning message if rix_init() already called", { + skip_on_cran() testthat::skip_on_os(os = c("windows", "mac")) path_default_nix <- paste0(