Add more tests for the curve creation

R-Lum · Dec 18, 2024 · 28d4403 · 28d4403
1 parent b38e35f
commit 28d4403
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/tests/testthat/test_internals.R b/tests/testthat/test_internals.R
@@ -445,4 +445,31 @@ test_that("Test internals", {
       TOLDELAY = 0,
       TOLON = 0,
       TOLOFF = 0), type = "double")
+
+  ## case for a delayed hit ramp start
+  expect_type(
+    Luminescence:::src_create_RLumDataCurve_matrix(
+      DATA = 1:100,
+      VERSION = 4,
+      NPOINTS = 0,
+      LTYPE = "OSL",
+      LOW = 0,
+      HIGH = 500,
+      AN_TEMP = 0,
+      TOLDELAY = 10,
+      TOLON = 0,
+      TOLOFF = 0), type = "double")
+  ## case for a delayed hit ramp start
+  expect_type(
+    Luminescence:::src_create_RLumDataCurve_matrix(
+      DATA = 1:100,
+      VERSION = 4,
+      NPOINTS = 0,
+      LTYPE = "OSL",
+      LOW = 0,
+      HIGH = 500,
+      AN_TEMP = 100,
+      TOLDELAY = 0,
+      TOLON = 0,
+      TOLOFF = 0), type = "double")
 })