Nothing
context("js_unit_test_methods_tests")
SLAccount <- account()
test_that("canStartJsUnitTests", {
platforms <- list(c("Windows 7", "firefox", "27"),
c("Linux", "googlechrome", "")
)
appUrl <- "https://saucelabs.com/test_helpers/front_tests/index.html"
framework <- "jasmine"
myTest <- startJsUnitTests(SLAccount, platforms = platforms
, url = appUrl, framework = framework)
expect_identical(length(myTest$`js tests`), 2L)
}
)
test_that("canGetJsUnitTestStatusAndDelete", {
platforms <- list(c("Windows 7", "firefox", "27"),
c("Linux", "googlechrome", "")
)
appUrl <- "https://saucelabs.com/test_helpers/front_tests/index.html"
framework <- "jasmine"
myTest <- startJsUnitTests(SLAccount, platforms = platforms
, url = appUrl, framework = framework)
expect_identical(length(myTest$`js tests`), 2L)
chk <- FALSE
jsStatus <- getJsUnitTestStatus(SLAccount, username = "seleniumPipes"
, js_tests = unlist(myTest, use.names = FALSE))
expect_true(is.logical(jsStatus$completed))
# delete jobs
while(!chk){
Sys.sleep(20)
jsStatus <- getJsUnitTestStatus(SLAccount, username = "seleniumPipes"
, js_tests = unlist(myTest, use.names = FALSE))
chk <- jsStatus$completed
}
appJobs <- getJobs(SLAccount, username = "seleniumPipes", limit = 4, getFullJobs = TRUE)
res <- lapply(sapply(jsStatus$`js tests`, "[[", "job_id"), function(x){
deleteJob(SLAccount, username = "seleniumPipes", jobID = x)
})
expect_true(!any(sapply(res, "[[", "status") != "success"))
}
)
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.