From ff553039f92ebd09ff1ed226b215a83794e54eaf Mon Sep 17 00:00:00 2001 From: Stuart Wheater Date: Fri, 10 Apr 2026 13:07:37 +0100 Subject: [PATCH 1/2] Permit perf test duration to be set, seconds, by environment variable 'PERF_DURATION_SEC' --- tests/testthat/test-perf-conndisconn.R | 4 ++-- tests/testthat/test-perf-ds.abs.R | 4 ++-- tests/testthat/test-perf-ds.asInteger.R | 4 ++-- tests/testthat/test-perf-ds.asList.R | 4 ++-- tests/testthat/test-perf-ds.asNumeric.R | 4 ++-- tests/testthat/test-perf-ds.assign.R | 4 ++-- tests/testthat/test-perf-ds.class.R | 4 ++-- tests/testthat/test-perf-ds.colnames.R | 4 ++-- tests/testthat/test-perf-ds.exists.R | 4 ++-- tests/testthat/test-perf-ds.length.R | 4 ++-- tests/testthat/test-perf-ds.mean.R | 6 +++--- tests/testthat/test-perf-void.R | 4 ++-- 12 files changed, 25 insertions(+), 25 deletions(-) diff --git a/tests/testthat/test-perf-conndisconn.R b/tests/testthat/test-perf-conndisconn.R index 4bcc2a102..4fb2fd695 100644 --- a/tests/testthat/test-perf-conndisconn.R +++ b/tests/testthat/test-perf-conndisconn.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -22,7 +22,7 @@ disconnect.studies.dataset.cnsim() # context("conndisconn::perf::simple0") test_that("simple connect - disconnect performance", { - .durationSec <- 120 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "120")) # defaults to 120 seconds .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 index e431c20e8..c17ca0ce2 100644 --- a/tests/testthat/test-perf-ds.abs.R +++ b/tests/testthat/test-perf-ds.abs.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index 2e816320f..99b5cbce2 100644 --- a/tests/testthat/test-perf-ds.asInteger.R +++ b/tests/testthat/test-perf-ds.asInteger.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asInteger::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index a0f65dda0..81d1de24c 100644 --- a/tests/testthat/test-perf-ds.asList.R +++ b/tests/testthat/test-perf-ds.asList.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index 33fcf4903..2beea8bef 100644 --- a/tests/testthat/test-perf-ds.asNumeric.R +++ b/tests/testthat/test-perf-ds.asNumeric.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asNumeric::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index d118eb426..f0b73e1df 100644 --- a/tests/testthat/test-perf-ds.assign.R +++ b/tests/testthat/test-perf-ds.assign.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index f90927ff4..95503c949 100644 --- a/tests/testthat/test-perf-ds.class.R +++ b/tests/testthat/test-perf-ds.class.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index 7382ecf6e..98eb81d20 100644 --- a/tests/testthat/test-perf-ds.colnames.R +++ b/tests/testthat/test-perf-ds.colnames.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .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 index 123d7e805..a91b38939 100644 --- a/tests/testthat/test-perf-ds.exists.R +++ b/tests/testthat/test-perf-ds.exists.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.length.R b/tests/testthat/test-perf-ds.length.R index 6105cf99d..076c12e99 100644 --- a/tests/testthat/test-perf-ds.length.R +++ b/tests/testthat/test-perf-ds.length.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.length::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.mean.R b/tests/testthat/test-perf-ds.mean.R index 03d0ac78a..8835d8649 100644 --- a/tests/testthat/test-perf-ds.mean.R +++ b/tests/testthat/test-perf-ds.mean.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.mean::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time @@ -52,7 +52,7 @@ test_that("combine - performance", { # context("ds.mean::perf::split:0") test_that("split - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-void.R b/tests/testthat/test-perf-void.R index 3e2f749c2..a0a5940c3 100644 --- a/tests/testthat/test-perf-void.R +++ b/tests/testthat/test-perf-void.R @@ -1,5 +1,5 @@ #------------------------------------------------------------------------------- -# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved. +# Copyright (c) 2024-2026 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. @@ -20,7 +20,7 @@ # context("void::perf::void::0") test_that("simple void performance", { - .durationSec <- 60 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "60")) # defaults to 60 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time From 5a3bf58c53ea4fa91f54c8f2fd1a830234024b31 Mon Sep 17 00:00:00 2001 From: Stuart Wheater Date: Mon, 13 Apr 2026 14:43:11 +0100 Subject: [PATCH 2/2] Permit perf test duration to be set, seconds, by environment variable 'PERF_DURATION_SEC' --- tests/testthat/perf_tests/perf_rate.R | 5 +++++ tests/testthat/test-perf-conndisconn.R | 2 +- tests/testthat/test-perf-ds.abs.R | 2 +- tests/testthat/test-perf-ds.asInteger.R | 2 +- tests/testthat/test-perf-ds.asList.R | 2 +- tests/testthat/test-perf-ds.asNumeric.R | 2 +- tests/testthat/test-perf-ds.assign.R | 2 +- tests/testthat/test-perf-ds.class.R | 2 +- tests/testthat/test-perf-ds.colnames.R | 2 +- tests/testthat/test-perf-ds.exists.R | 2 +- tests/testthat/test-perf-ds.length.R | 2 +- tests/testthat/test-perf-ds.mean.R | 4 ++-- tests/testthat/test-perf-void.R | 2 +- 13 files changed, 18 insertions(+), 13 deletions(-) diff --git a/tests/testthat/perf_tests/perf_rate.R b/tests/testthat/perf_tests/perf_rate.R index a7f85348b..8d762207c 100644 --- a/tests/testthat/perf_tests/perf_rate.R +++ b/tests/testthat/perf_tests/perf_rate.R @@ -57,6 +57,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() diff --git a/tests/testthat/test-perf-conndisconn.R b/tests/testthat/test-perf-conndisconn.R index 4fb2fd695..ab257aeb3 100644 --- a/tests/testthat/test-perf-conndisconn.R +++ b/tests/testthat/test-perf-conndisconn.R @@ -22,7 +22,7 @@ disconnect.studies.dataset.cnsim() # context("conndisconn::perf::simple0") test_that("simple connect - disconnect performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "120")) # defaults to 120 seconds + .durationSec <- perf.testduration(120) .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 index c17ca0ce2..325d715c9 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index 99b5cbce2..5e1b887ae 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index 81d1de24c..6c2f3db93 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index 2beea8bef..eb0695e4e 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index f0b73e1df..47e51ca5e 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index 95503c949..023a404aa 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index 98eb81d20..8943c5777 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .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 index a91b38939..92a10cab0 100644 --- 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 <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.length.R b/tests/testthat/test-perf-ds.length.R index 076c12e99..c1ac11c95 100644 --- a/tests/testthat/test-perf-ds.length.R +++ b/tests/testthat/test-perf-ds.length.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.length::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.mean.R b/tests/testthat/test-perf-ds.mean.R index 8835d8649..6b5993685 100644 --- a/tests/testthat/test-perf-ds.mean.R +++ b/tests/testthat/test-perf-ds.mean.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.mean::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time @@ -52,7 +52,7 @@ test_that("combine - performance", { # context("ds.mean::perf::split:0") test_that("split - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-void.R b/tests/testthat/test-perf-void.R index a0a5940c3..1325bfeaa 100644 --- a/tests/testthat/test-perf-void.R +++ b/tests/testthat/test-perf-void.R @@ -20,7 +20,7 @@ # context("void::perf::void::0") test_that("simple void performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "60")) # defaults to 60 seconds + .durationSec <- perf.testduration(60) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time