42 cohort methods test

tests/testthat/test-cohort_methods.R

@@ -831,6 +831,19 @@ test_that("Defining and accessing description works fine", {
   )
 })
 
+test_that("steps_range from Step.R returns empty character when from is greater than to", {
+  expect_equal(steps_range(3,2),character(0))
+})
+
+test_that("eval_step_filters from Step.R returns empty character when step id is equal", {
+  expect_equal(eval_step_filters(list(0, id = "2"),patients_source),list())
+})
+
+test_that("next_step from Step.R returns the next index as a character string", {
+  expect_equal(next_step("1"),"2")
+  expect_type(next_step("1"),"character")
+})
+
 # if (!covr::in_covr()) { # covr modifies function body so the test doesn't pass
 #   test_that("(experimental) Retrieving reproducible code works fine", {
 #     # Using direct Cohort methods

tests/testthat/test-reproducible_code_utils.R

@@ -49,3 +49,30 @@ test_that("combine_expressions merges multiple expressions into a single one", {
     })
   )
 })
+
+test_that("pair_seq handles empty input gracefully", {
+  # Given an empty input, expect empty integer vector
+  result <- pair_seq(integer(0))
+  expect_true(is.integer(result))
+  expect_identical(result,integer(0))
+  expect_length(result, 0)
+})
+
+test_that("pair_seq requires an even number of indexes", {
+  # If odd length input is provided, function should fail due to indexing error
+  expect_error(pair_seq(c(1, 2, 3)))
+})
+
+test_that("pair_seq always returns a strictly increasing sequence of integers", {
+  # Check that output is sorted and has no duplicates for a known even-length input
+  input <- c(3, 1, 7, 5)   # Unsorted input
+  result <- pair_seq(input)
+
+  # Expect numeric output
+  expect_true(is.numeric(result))
+
+  # Expect output is in strictly ascending order
+  expect_true(all(diff(result) > 0))
+
+})
+