add tests

Author: LynxJinyangii

RcppTskit/tests/testthat/test_TableCollection.R

@@ -310,6 +310,14 @@ test_that("table_collection_sort wrapper validates inputs and sorts in place", {
     rtsk_table_collection_sort(tc_xptr, options = bitwShiftL(1L, 4)),
     regexp = "only supports options"
   )
+  expect_error(
+    rtsk_table_collection_sort(tc_xptr, options = -1L),
+    regexp = "does not support negative options"
+  )
+  expect_error(
+    rtsk_table_collection_sort(tc_xptr, site_start = 1L),
+    regexp = "SORT_OFFSET_NOT_SUPPORTED|Sort offset"
+  )
   expect_no_error(rtsk_table_collection_sort(tc_xptr))
   expect_no_error(rtsk_table_collection_sort(tc_xptr, 0L, 0L, 0L))
 

RcppTskit/tests/testthat/test_misc.R

@@ -53,6 +53,29 @@ test_that("validate_options() branches are covered", {
   )
 })
 
+test_that("R-side integer and row-index validators cover message branches", {
+  # jarl-ignore internal_function: it's just a test
+  expect_error(
+    RcppTskit:::validate_integer_scalar_arg(1.5, "x"),
+    regexp = "x must be a non-NA integer scalar!"
+  )
+  # jarl-ignore internal_function: it's just a test
+  expect_error(
+    RcppTskit:::validate_integer_scalar_arg(1L, "x", minimum = 2L),
+    regexp = "x must be a non-NA integer scalar >= 2!"
+  )
+  # jarl-ignore internal_function: it's just a test
+  expect_no_error(RcppTskit:::validate_row_index(NULL, allow_null = TRUE))
+})
+
+test_that("TSK_NO_CHECK_INTEGRITY constant wrapper returns integer", {
+  # jarl-ignore internal_function: it's just a test
+  v <- RcppTskit:::rtsk_const_tsk_no_check_integrity()
+  expect_true(is.integer(v))
+  expect_equal(length(v), 1L)
+  expect_true(v > 0L)
+})
+
 test_that("rtsk_wrap_tsk_size_t_as_integer64() works", {
   # jarl-ignore internal_function: it's just a test
   x <- RcppTskit:::test_rtsk_wrap_tsk_size_t_as_integer64("0")

RcppTskit/tests/testthat/test_variant_iterator_low_level.R

@@ -76,6 +76,8 @@ test_that("low-level variant iterator validates bounds", {
 })
 
 test_that("low-level variant iterator validates site-index range helper", {
+  expect_no_error(test_variant_site_index_range("0", "0"))
+
   expect_error(
     test_variant_site_index_range("2147483648", "0"),
     "Site index exceeds tsk_id_t range"