Generalized ping test config

Author: StuartWheater

tests/testthat/connection_to_datasets/init_local_settings.R

@@ -10,14 +10,12 @@ init.server.url <- function()
    file.name <- init.local.settings()
    if (file.exists(file.name))
    {
-      content         <- read.csv(file.name, header = FALSE)
-      server_ping.url <- as.character(content[[1]][1])
-      server_ping.url <- as.character(content[[1]][2])
+      content    <- read.csv(file.name, header = FALSE)
+      server.url <- as.character(content[[1]][1])
    }
    else
    {
-      server.url      <- NULL
-      server_ping.url <- NULL
+      server.url <- NULL
    }
    return (server.url)
 }
@@ -26,9 +24,9 @@ init.server.url <- function()
 
 init.local.settings <- function()
 {
-  path            <- getwd()
-  sub.folder.name <- "/connection_to_datasets/"
-  file.name       <- "local_settings.csv"
+   path            <- getwd()
+   sub.folder.name <- "/connection_to_datasets/"
+   file.name       <- "local_settings.csv"
 
-  return(paste(path, sub.folder.name, file.name, sep=""))
+   return(paste(path, sub.folder.name, file.name, sep=""))
 }

tests/testthat/connection_to_datasets/login_details.R

@@ -23,15 +23,15 @@ if (! is.null(getOption("default_driver"))) {
 
 if ((ds.test_env$driver == "DSLiteDriver") || (ds.test_env$driver == "OpalDriver")) {
     if (! is.null(ds.test_env$server_url)) {
-        opal.url      <- ds.test_env$server_url
-        opal_ping.url <- ds.test_env$server_ping_url
+        opal.url <- ds.test_env$server_url
     } else {
-        opal.url      <- "https://localhost:8443/"
-        opal_ping.url <- "http://localhost:8080/"
+        opal.url <- "https://localhost:8443/"
     }
 
-    ds.test_env$ping_url     <- opal_ping.url
-    ds.test_env$ping_config  <- config(timeout=5)
+    ds.test_env$ping_url      <- opal.url
+    ds.test_env$ping_user     <- getOption("opal.user", "administrator")
+    ds.test_env$ping_password <- getOption("opal.password", "datashield_test&")
+    ds.test_env$ping_options  <- config(timeout=5, ssl_verifyhost=0, ssl_verifypeer=0)
 
     ds.test_env$server_url_1 <- opal.url
     ds.test_env$server_url_2 <- opal.url
@@ -52,15 +52,15 @@ if ((ds.test_env$driver == "DSLiteDriver") || (ds.test_env$driver == "OpalDriver
     ds.test_env$secure_login_details <- TRUE
 } else if (ds.test_env$driver == "ArmadilloDriver") {
     if (! is.null(ds.test_env$server_url)) {
-        armadillo.url      <- ds.test_env$server_url
-        armadillo_ping.url <- ds.test_env$server_ping_url
+        armadillo.url <- ds.test_env$server_url
     } else {
-        armadillo.url      <- "http://localhost:8080/"
-        armadillo_ping.url <- "http://localhost:8080/"
+        armadillo.url <- "http://localhost:8080/"
     }
 
-    ds.test_env$ping_url     <- armadillo_ping.url
-    ds.test_env$ping_config  <- config(timeout=5)
+    ds.test_env$ping_url      <- armadillo_ping.url
+    ds.test_env$ping_user     <- getOption("armadillo.user", "admin")
+    ds.test_env$ping_password <- getOption("armadillo.password", "admin")
+    ds.test_env$ping_options  <- "list(timeout=5)"
 
     ds.test_env$server_url_1 <- armadillo.url
     ds.test_env$server_url_2 <- armadillo.url

tests/testthat/test-_-vm-test.R

@@ -26,7 +26,7 @@ init.testing.datasets()
 
 test_that("The virtual machine is loaded. ",
 {
-    response <- httr::HEAD(url=ds.test_env$ping_url, config=ds.test_env$ping_config)
+    response <- httr::HEAD(url=ds.test_env$ping_url, config=ds.test_env$ping_options, authenticate(ds.test_env$ping_user, ds.test_env$ping_password))
     expect_true(http_status(response)$reason %in% c("OK", "Unauthorized"))
 })