tests/testthat/test-info_methods_tests.R

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)
}
)

Try the RSauceLabs package in your browser

Any scripts or data that you put into this service are public.

RSauceLabs documentation built on May 29, 2017, 3:24 p.m.