timcadman · Oct 14, 2026 · Oct 15, 2026 · Oct 16, 2026
diff --git a/tests/testthat/perf_tests/perf_rate.R b/tests/testthat/perf_tests/perf_rate.R
@@ -42,7 +42,7 @@
 
 perf.reference.save <- function(perf.ref.name, rate, tolerance.lower, tolerance.upper) {
     if (is.null(.perf.reference))
-        load.pref()
+        .load.pref()
 
     .perf.reference[nrow(.perf.reference)+1,] <- c(perf.ref.name, rate, tolerance.lower, tolerance.upper)
 

diff --git a/tests/testthat/test-arg-ds.abs.R b/tests/testthat/test-arg-ds.abs.R
@@ -1,14 +1,3 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) 2018-2022 University of Newcastle upon Tyne. All rights reserved.
-# Copyright (c) 2022-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
-#
-# This program and the accompanying materials
-# are made available under the terms of the GNU Public License v3.0.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#-------------------------------------------------------------------------------
-
 #
 # Set up
 #

diff --git a/tests/testthat/test-arg-ds.sqrt.R b/tests/testthat/test-arg-ds.sqrt.R
@@ -1,14 +1,3 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) 2018-2022 University of Newcastle upon Tyne. All rights reserved.
-# Copyright (c) 2022-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
-#
-# This program and the accompanying materials
-# are made available under the terms of the GNU Public License v3.0.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#-------------------------------------------------------------------------------
-
 #
 # Set up
 #

diff --git a/tests/testthat/test-perf-ds.Boole.R b/tests/testthat/test-perf-ds.Boole.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.Boole::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.abs.R b/tests/testthat/test-perf-ds.abs.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.abs::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asCharacter.R b/tests/testthat/test-perf-ds.asCharacter.R
@@ -20,7 +20,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.asCharacter::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asDataMatrix.R b/tests/testthat/test-perf-ds.asDataMatrix.R
@@ -20,7 +20,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.asDataMatrix::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asFactor.R b/tests/testthat/test-perf-ds.asFactor.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id", "female", "age.60")
 
 # context("ds.asFactor::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asFactorSimple.R b/tests/testthat/test-perf-ds.asFactorSimple.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id", "female", "age.60")
 
 # context("ds.asFactorSimple::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asInteger.R b/tests/testthat/test-perf-ds.asInteger.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER"))
 
 # context("ds.asInteger::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asList.R b/tests/testthat/test-perf-ds.asList.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.asList::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asLogical.R b/tests/testthat/test-perf-ds.asLogical.R
@@ -20,7 +20,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.asLogical::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asMatrix.R b/tests/testthat/test-perf-ds.asMatrix.R
@@ -20,7 +20,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.asMatrix::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.asNumeric.R b/tests/testthat/test-perf-ds.asNumeric.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER"))
 
 # context("ds.asNumeric::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.assign.R b/tests/testthat/test-perf-ds.assign.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.assign::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.boxPlot.R b/tests/testthat/test-perf-ds.boxPlot.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.boxPlot::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.boxPlotGG.R b/tests/testthat/test-perf-ds.boxPlotGG.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.boxPlotGG::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.c.R b/tests/testthat/test-perf-ds.c.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC"))
 
 # context("ds.c::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.cbind.R b/tests/testthat/test-perf-ds.cbind.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id", "female", "age.60")
 
 # context("ds.cbind::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.changeRefGroup.R b/tests/testthat/test-perf-ds.changeRefGroup.R
@@ -13,7 +13,7 @@ connect.studies.dataset.cnsim(list('PM_BMI_CATEGORICAL'))
 # context("ds.changeRefGroup::perf::0")
 test_that("performance", {
     ds.asFactorSimple("D$PM_BMI_CATEGORICAL", newobj.name="bmi_new")
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.class.R b/tests/testthat/test-perf-ds.class.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.class::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.colnames.R b/tests/testthat/test-perf-ds.colnames.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.colnames::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.completeCases.R b/tests/testthat/test-perf-ds.completeCases.R
@@ -1,13 +1,3 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
-#
-# This program and the accompanying materials
-# are made available under the terms of the GNU Public License v3.0.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#-------------------------------------------------------------------------------
-
 #
 # Set up
 #
@@ -21,7 +11,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.completeCases::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.contourPlot.R b/tests/testthat/test-perf-ds.contourPlot.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.contourPlot::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.cor.R b/tests/testthat/test-perf-ds.cor.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id", "female"))
 
 # context("ds.cor::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.corTest.R b/tests/testthat/test-perf-ds.corTest.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id"))
 
 # context("ds.corTest::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.cov.R b/tests/testthat/test-perf-ds.cov.R
@@ -12,7 +12,7 @@ connect.studies.dataset.survival(list("survtime", "time.id", "female"))
 
 # context("ds.cov::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dataFrame.R b/tests/testthat/test-perf-ds.dataFrame.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_HDL"))
 
 # context("ds.dataFrame::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dataFrameFill.R b/tests/testthat/test-perf-ds.dataFrameFill.R
@@ -12,7 +12,7 @@ connect.discordant.dataset.simple(list("A", "B", "C"))
 
 # context("ds.dataFrameFill::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dataFrameSort.R b/tests/testthat/test-perf-ds.dataFrameSort.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_HDL"))
 
 # context("ds.dataFrameSort::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dataFrameSubset.R b/tests/testthat/test-perf-ds.dataFrameSubset.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_HDL", "PM_BMI_CATEGORICAL"))
 
 # context("ds.dataFrameSubset::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.densityGrid.R b/tests/testthat/test-perf-ds.densityGrid.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.densityGrid::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dim.R b/tests/testthat/test-perf-ds.dim.R
@@ -1,13 +1,3 @@
-#-------------------------------------------------------------------------------
-# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
-#
-# This program and the accompanying materials
-# are made available under the terms of the GNU Public License v3.0.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#-------------------------------------------------------------------------------
-
 #
 # Set up
 #
@@ -21,7 +11,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.dim::perf::0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.dmtC2S.R b/tests/testthat/test-perf-ds.dmtC2S.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC"))
 
 # context("ds.dmtC2S::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.elspline.R b/tests/testthat/test-perf-ds.elspline.R
@@ -12,7 +12,7 @@ connect.studies.dataset.cnsim(list("LAB_TRIG", "PM_BMI_CONTINUOUS"))
 
 # context("ds.elspline::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.exists.R b/tests/testthat/test-perf-ds.exists.R
@@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.exists::perf::combine:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.exp.R b/tests/testthat/test-perf-ds.exp.R
@@ -20,7 +20,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 
 # context("ds.exp::perf:0")
 test_that("combine - performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.gamlss.R b/tests/testthat/test-perf-ds.gamlss.R
@@ -13,7 +13,7 @@ connect.studies.dataset.gamlss(list("e3_bw", "e3_gac_None", "hs_zbmi_who", "hs_c
 
 # context("ds.gamlss::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.getWGSR.R b/tests/testthat/test-perf-ds.getWGSR.R
@@ -12,7 +12,7 @@ connect.studies.dataset.anthro(list("age", "sex", "weight", "height", "muac"))
 
 # context("ds.getWGSR::perf::0")
 test_that("performance", {
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time

diff --git a/tests/testthat/test-perf-ds.glmPredict.R b/tests/testthat/test-perf-ds.glmPredict.R
@@ -13,7 +13,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG"))
 # context("ds.glmPredict::perf::0")
 test_that("performance", {
     ds.glmSLMA('D$LAB_TSC~D$LAB_TRIG', family="gaussian", newobj="gaussian.glmslma.obj")
-    .durationSec  <- 30 # seconds
+    .durationSec  <- perf.testduration()
     .count        <- 0
     .start.time   <- Sys.time()
     .current.time <- .start.time