Nothing
context("misc_remoteDriver_methods_tests")
init <- initFun()
remDr <- init$remDr
rdBrowser <- init$rdBrowser
loadPage <- init$loadPage
on.exit(remDr$closeall())
test_that("canShowRemoteDriver", {
expect_identical(remDr$show()$browserName, rdBrowser)
})
test_that("canShowErrorClass", {
status <- remDr$showErrorClass()$status
expect_equal(status, 0L)
})
test_that("canGetSessions", {
sessions <- remDr$getSessions()
expect_equal(length(sessions), 1L)
expect_identical(sessions[[1]][["id"]], remDr$sessionid)
})
test_that("canGetStatus", {
status <- remDr$getStatus()
expect_identical(names(status), c("build", "os", "java"))
})
test_that("canSetAsyncScriptTimeout", {
expect_silent(remDr$setAsyncScriptTimeout())
})
test_that("canSetImplicitWaitTimeout", {
expect_silent(remDr$setImplicitWaitTimeout())
})
test_that("canGetLogTypes", {
expect_gt(length(remDr$getLogTypes()), 0L)
})
test_that("canGetLog", {
logs <- remDr$getLogTypes()[[1]]
expect_true(inherits(remDr$log(logs[1]), "list"))
})
test_that("canGetPageSource", {
remDr$navigate(loadPage("simpleTest"))
source <- remDr$getPageSource()
expect_true(grepl("html", source[[1]]))
})
test_that("canSetExtraCaps", {
prefs <- list("profile.managed_default_content_settings.images" = 2L)
cprof <- list(chromeOptions = list(prefs = prefs))
expect_output(
init2 <- initFun(silent = FALSE, extraCapabilities = cprof)
)
on.exit(init2$remDr$close())
expect_identical(init2$remDr$extraCapabilities, cprof)
})
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.