Additional 'perf' test

Author: StuartWheater

tests/testthat/test-perf-ds.asInteger.R

@@ -0,0 +1,46 @@
+#-------------------------------------------------------------------------------
+# Copyright (c) 2024 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
+#
+
+context("ds.asInteger::perf::setup")
+connect.studies.dataset.cnsim(list("GENDER"))
+
+#
+# Tests
+#
+
+context("ds.asInteger::perf:0")
+test_that("combine - performance", {
+    .durationSec  <- 30 # seconds
+    .count        <- 0
+    .start.time   <- Sys.time()
+    .current.time <- .start.time
+
+    while (difftime(.current.time, .start.time, units = "secs")[[1]] < .durationSec) {
+        ds.asInteger("D$GENDER", newobj = "asInteger.newobj")
+
+        .count <- .count + 1
+        .current.time <- Sys.time()
+    }
+    expect_true(TRUE)
+
+    print(paste("ds.asInteger::perf::0:", format(.count / (difftime(.current.time, .start.time, units = "secs")[[1]]), digits = 8)))
+})
+
+#
+# Done
+#
+
+context("ds.asInteger::perf::shutdown")
+disconnect.studies.dataset.cnsim()
+context("ds.asInteger::perf::done")