Merge pull request #468 from StuartWheater/v6.3.6-dev_feat-perf-support

Permit individual perf test duration to be set

Author: StuartWheater

tests/testthat/perf_tests/perf_rate.R

@@ -45,6 +45,11 @@ perf.reference.save <- function(perf.ref.name, rate, tolerance.lower, tolerance.
     .perf.reference <<- .perf.reference
 }
 
+# Obtain performance test duration from PERF_DURATION_SEC environment variable, otherwise default.duration argument, otherwise "30".
+perf.testduration <- function(default.duration = 30) {
+    base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = base::as.character(default.duration)))
+}
+
 perf.reference.rate <- function(perf.ref.name) {
     if (is.null(.perf.reference))
         .load.pref()

tests/testthat/test-perf-meanDS.R

@@ -30,7 +30,7 @@ test_that("numeric meanDS - performance", {
 
     input <- c(0.0, 1.0, 2.0, 3.0, 4.0)
 
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration(30)
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time
@@ -65,7 +65,7 @@ test_that("numeric meanDS, with NA - performance", {
 
     input <- c(0.0, NA, 2.0, NA, 4.0)
 
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration(30)
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

tests/testthat/test-perf-varDS.R

@@ -30,7 +30,7 @@ test_that("numeric varDS - performance", {
 
     input <- c(0.0, 1.0, 2.0, 3.0, 4.0)
 
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration(30)
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time
@@ -65,7 +65,7 @@ test_that("numeric varDS, with NA - performance", {
 
     input <- c(0.0, NA, 2.0, NA, 4.0)
 
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration(30)
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time