Nothing
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)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.