Skip network tests on CRAN

NEWS.md

@@ -1,3 +1,7 @@
+# available 1.0.4
+
+* Tests requiring network access are not skipped on CRAN.
+
 # available 1.0.3
 
 * `BiocManager` is now preferred to `BiocInstaller` if both are installed (#44, @luciorq).

tests/testthat/test-badwords.R

@@ -1,9 +1,13 @@
 context("Check package name for bad words")
 
 test_that("Catches bad word", {
+  skip_on_cran()
+
   expect_identical("hell", get_bad_words("hell")[[1L]])
 })
 
 test_that("Passes safe word", {
+  skip_on_cran()
+
   expect_true(length(get_bad_words("happy")) == 0)
 })

tests/testthat/test-bioc.R

@@ -1,10 +1,13 @@
 context("Load packages from Bioconductor")
 
 test_that("Can find dplyr", {
+  skip_on_cran()
+
   expect_false(available_on_bioc("ACME"))
 })
 
 test_that("Can't find made up package", {
+  skip_on_cran()
+
   expect_true(available_on_bioc("This_is_not_a_pkg"))
 })
-

tests/testthat/test-cran.R

@@ -1,10 +1,14 @@
 context("Load packages from CRAN")
 
 test_that("Can find dplyr", {
+  skip_on_cran()
+
   expect_false(available_on_cran("dplyr"))
 })
 
 test_that("Can't find made up package", {
+  skip_on_cran()
+
   expect_true(available_on_cran("This_is_not_a_pkg"))
 })
 

tests/testthat/test-github.R

@@ -1,9 +1,13 @@
 context("Load packages from GitHub")
 
 test_that("Can find ", {
+  skip_on_cran()
+
   expect_false(available_on_github("svrepmisc")$available)
 })
 
 test_that("Can't find made up package", {
+  skip_on_cran()
+
   expect_true(available_on_github("This_is_not_a_pkg")$available)
 })