.

Author: gregorgorjanc

RcppTskit/tests/testthat/test_cpp_public_api.R

@@ -42,21 +42,28 @@ test_that("public C++ wrappers compile for downstream-style usage", {
   )
 
   ts_file <- system.file("examples/test.trees", package = "RcppTskit")
+  # jarl-ignore internal_function:  it's just a test
   ts_xptr <- RcppTskit:::ts_xptr_load(ts_file)
+  # jarl-ignore internal_function:  it's just a test
   tc_xptr <- RcppTskit:::tc_xptr_load(ts_file)
 
   tc_scalars <- tc_public_scalars(tc_xptr)
+  # jarl-ignore internal_function:  it's just a test
   expect_identical(
     tc_scalars$has_reference_sequence,
     RcppTskit:::tc_xptr_has_reference_sequence(tc_xptr)
   )
+  # jarl-ignore internal_function:  it's just a test
   expect_identical(
     tc_scalars$time_units,
     RcppTskit:::tc_xptr_time_units(tc_xptr)
   )
+  # jarl-ignore internal_function:  it's just a test
   expect_identical(tc_scalars$file_uuid, RcppTskit:::tc_xptr_file_uuid(tc_xptr))
+  # jarl-ignore internal_function:  it's just a test
   expect_identical(tc_scalars$has_index, RcppTskit:::tc_xptr_has_index(tc_xptr))
-
+  # jarl-ignore internal_function:  it's just a test
   expect_equal(ts_public_summary(ts_xptr), RcppTskit:::ts_xptr_summary(ts_xptr))
+  # jarl-ignore internal_function:  it's just a test
   expect_equal(tc_public_summary(tc_xptr), RcppTskit:::tc_xptr_summary(tc_xptr))
 })