tests/testthat/test_driver.R

In tpaskhalis/RgovUK: Package for automatic downloading of publications from Gov.UK

context("Minimum functionality of the WebDriver")

test_that("Browser (default, Chrome) can be initiated", {
  caps <- list(chromeOptions = list(args = c("--headless", "--disable-gpu")))
  start_browser(port = 4441L,
                docker = FALSE,
                browser = "chrome",
                verbose = FALSE,
                check = TRUE,
                extraCapabilities = caps)
  expect_true(exists("driver", where = .govenv))
  expect_true(exists("server", where = .govenv))
  stop_browser()
})

test_that("Firefox can be initiated", {
  caps <- list(`moz:firefoxOptions` = list(args = list("-headless")))
  start_browser(port = 4442L,
                docker = FALSE,
                browser = "firefox",
                verbose = TRUE,
                check = TRUE,
                extraCapabilities = caps)
  expect_true(exists("driver", where = .govenv))
  expect_true(exists("server", where = .govenv))
  stop_browser()
})

# test_that("PhantomJS can be initiated", {
#   start_browser(port = 4443L,
#                 docker = FALSE,
#                 browser = "phantomjs",
#                 verbose = FALSE,
#                 check = TRUE)
#   expect_true(exists("driver", where = .govenv))
#   expect_true(exists("server", where = .govenv))
#   stop_browser()
# })

test_that("Docker can be used", {
  id <- system2("docker",
                args = c("run", "-d", "-p", "4445:4444 selenium/standalone-firefox:3.10.0"),
                stdout = TRUE)
  Sys.sleep(5)
  start_browser(port = 4445L, docker = TRUE)
  expect_true(exists("driver", where = .govenv))
  stop_browser()
  system2("docker", args = c("kill", id), stdout = FALSE)
})

test_that("Browser is able to navigate to the main page", {
  caps <- list(chromeOptions = list(args = c("--headless", "--disable-gpu")))
  start_browser(port = 4446L,
                docker = FALSE,
                browser = "chrome",
                verbose = FALSE,
                check = TRUE,
                extraCapabilities = caps)
 expect_silent(main_page())
 title <- unlist(RgovUK:::get_title())
 expect_identical(title, "Publications - GOV.UK")
 stop_browser()
})