if (require("testthat")) { library(insight) is_dev_version <- length(strsplit(packageDescription("insight")$Version, "\\.")[[1]]) > 3 if (is_dev_version) { Sys.setenv("RunAllinsightTests" = "yes") } else { Sys.setenv("RunAllinsightTests" = "no") } si <- Sys.info() osx <- tryCatch( { if (!is.null(si["sysname"])) { si["sysname"] == "Darwin" || grepl("^darwin", R.version$os) } else { FALSE } }, error = function(e) { FALSE } ) solaris <- tryCatch( { if (!is.null(si["sysname"])) { grepl("SunOS", si["sysname"], ignore.case = TRUE) } else { FALSE } }, error = function(e) { FALSE } ) # disable / enable if needed if (.Platform$OS.type == "unix" && is_dev_version) { Sys.setenv("RunAllinsightStanTests" = "yes") } else { Sys.setenv("RunAllinsightStanTests" = "no") } # if (!osx && !solaris) { # test_check("insight") # } test_check("insight") }
Generated by dwww version 1.15 on Sat May 18 06:52:26 CEST 2024.