tests/testthat/test-js_unit_methods_tests.R

In RSauceLabs: R Wrapper for 'SauceLabs' REST API

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

}
)