tests/testthat/test-info_methods_tests.R

In RSauceLabs: R Wrapper for 'SauceLabs' REST API

context("info_methods_tests")
SLAccount <- account()

test_that("canGetSauceLabsStatus", {
  sauceStatus <- getSauceLabsStatus(SLAccount)
  expect_true(sauceStatus$service_operational)
})

test_that("canGetSupportedPlatforms", {
  supPlatforms <- getSupportedPlatforms(SLAccount)
  expect_gt(supPlatforms[, sum(os == "Linux")], 0L)
}
)

test_that("canGetAppiumEolDates", {
  eolDates <- getAppiumEolDates(SLAccount)
  chkEDates <- sum(sapply(eolDates, function(x){!(inherits(x, "POSIXct") || is.na(x))}))
  expect_identical(chkEDates, 0L)
}
)