some dev friendliness skips

Author: MichaelChirico

tests/testthat/test-catch.R

@@ -7,4 +7,5 @@ test_that("get_routine() fails when no routine exists", {
   expect_error(get_routine("utils", "no_such_routine"))
 })
 
+skip_if_not_installed("xml2")
 run_cpp_tests("testthat")

tests/testthat/test-compare.R

@@ -194,8 +194,11 @@ test_that("base lengths must be identical", {
 })
 
 test_that("tzones must be identical", {
-  t1 <- ISOdatetime(2016, 2, 29, 12, 13, 14, "EST")
-  t2 <- ISOdatetime(2016, 2, 29, 12, 13, 14, "US/Eastern")
+  # skip on minimal setups
+  tryCatch({
+    t1 <- ISOdatetime(2016, 2, 29, 12, 13, 14, "EST")
+    t2 <- ISOdatetime(2016, 2, 29, 12, 13, 14, "US/Eastern")
+  }, warning = function(w) skip(conditionMessage(w)))
 
   expect_match(compare(t1, t2)$message, '"tzone": 1 string mismatch')
 })

tests/testthat/test-expect-inheritance.R

@@ -75,6 +75,7 @@ test_that("checks its inputs", {
 })
 
 test_that("can check with actual class", {
+  skip_if_not_installed("S7")
   Foo <- S7::new_class("Foo", package = NULL)
   Bar <- S7::new_class("Bar", package = NULL)
   expect_success(expect_s7_class(Foo(), class = Foo))

tests/testthat/test-reporter-junit.R

@@ -1,4 +1,5 @@
 test_that("reporter doesn't change without warning", {
+  skip_if_not_installed("xml2")
   expect_snapshot_reporter(JunitReporterMock$new())
 })