tests/testthat/testSuite003-errors-testState4.1.R

In jstockwin/EpiEstimApp: EpiEstimApp: a package to add a graphical interface around EpiEstim, which is a package to estimate time varying reproduction numbers from epidemic curves

context("Test Suite 3 (Errors) --> State 4.1")

library(RSelenium)
library(testthat)
source("functions.R", local=TRUE)

drivers <- getRemDrivers("Test Suite 3 (Errors) --> State 4.1")
rD <- drivers$rDr
remDr <- drivers$remDr

openRemDriver(remDr)
tryCatch({
  test_that("can connect to app", {
    connectToApp(remDr)
  })

  test_that("app is ready within 30 seconds", {
    waitForAppReady(remDr)
  })

  test_that("can navigate to state 4.1", {
   navigateToState(remDr, "4.1")
  })

  test_that("pressing next without uploading a file throws correct error", {
    clickNext(remDr)
    Sys.sleep(1)
    checkError(remDr, "Please upload a file", "imported_data")
  })

  # test_that("uploading a non-csv file throws correct error", {
  #   if (getAttribute(remDr, pages$state4.1$selectors$imported_data_upload_input, "value") == "") {
  #     setAttribute(remDr, pages$state4.1$selectors$imported_data_upload_input, "style", "display: block;")
  #   }
  #   path <- getFilePath(remDr, "utils.R")
  #   #path <- getFilePath(remDr, "datasets/IncidenceData/H1N1Pennsylvania2009.csv")
  #   sendKeys(remDr, pages$state4.1$selectors$imported_data_upload_input, path)
  #   clickNext(remDr)
  #   Sys.sleep(1)
  #   checkError(remDr, "The uploaded file must be a .csv file", "importedData")
  # })
},
error = function(e) {
  closeRemDrivers(remDr, rD)
  stop(e)
})

closeRemDrivers(remDr, rD)