context("controls")
library(RSelenium)
library(testthat)
if(exists('rsel.opt', where = parent.env(environment()) , inherits = FALSE)){
# print(rsel.opt)
remDr <- do.call(remoteDriver, rsel.opt)
}else{
remDr <- remoteDriver()
}
remDr$open(silent = TRUE)
sysDetails <- remDr$getStatus()
browser <- remDr$sessionInfo$browserName
appURL <- "http://127.0.0.1:6012"
test_that("can select/deselect checkbox 1", {
remDr$navigate(appURL)
webElem <- remDr$findElement("css selector", "#ctrlSelect1")
initState <- webElem$isElementSelected()[[1]]
# check if we can select/deselect
if(browser == "internet explorer"){
webElem$sendKeysToElement(list(key = "space"))
}else{
webElem$clickElement()
}
changeState <- webElem$isElementSelected()[[1]]
expect_is(initState, "logical")
expect_is(changeState, "logical")
expect_false(initState == changeState)
})
test_that("can select/deselect checkbox 2", {
webElem <- remDr$findElement("css selector", "#ctrlSelect2")
initState <- webElem$isElementSelected()[[1]]
# check if we can select/deselect
if(browser == "internet explorer"){
webElem$sendKeysToElement(list(key = "space"))
}else{
webElem$clickElement()
}
changeState <- webElem$isElementSelected()[[1]]
expect_is(initState, "logical")
expect_is(changeState, "logical")
expect_false(initState == changeState)
})
test_that("can select/deselect checkbox 3", {
webElem <- remDr$findElement("css selector", "#ctrlSelect3")
initState <- webElem$isElementSelected()[[1]]
# check if we can select/deselect
if(browser == "internet explorer"){
webElem$sendKeysToElement(list(key = "space"))
}else{
webElem$clickElement()
}
changeState <- webElem$isElementSelected()[[1]]
expect_is(initState, "logical")
expect_is(changeState, "logical")
expect_false(initState == changeState)
})
test_that("can select/deselect checkbox 4", {
webElem <- remDr$findElement("css selector", "#ctrlSelect4")
initState <- webElem$isElementSelected()[[1]]
# check if we can select/deselect
if(browser == "internet explorer"){
webElem$sendKeysToElement(list(key = "space"))
}else{
webElem$clickElement()
}
changeState <- webElem$isElementSelected()[[1]]
expect_is(initState, "logical")
expect_is(changeState, "logical")
expect_false(initState == changeState)
})
remDr$close()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.