expand tests (using vendoring to see what is tested on each header)

Author: pachadotdev

extended-tests/cpp4rtest/.Rbuildignore

@@ -1,3 +1,4 @@
 ^\.here$
 ^LICENSE\.md$
 ^src/Makevars$
+^\.covrignore$

extended-tests/cpp4rtest/.covrignore

@@ -0,0 +1,70 @@
+R/
+src/add.h
+src/cpp4r.cpp
+src/cpp4r.hpp
+src/data_frame.h
+src/env-helpers.h
+src/errors_fmt.h
+src/errors.h
+src/find-intervals.h
+src/grow.h
+src/insert.h
+src/list-complex-helpers.h
+src/lists.h
+src/main.cpp
+src/Makevars
+src/Makevars.in
+src/Makevars.win
+src/map.h
+src/matrix.h
+src/protect.h
+src/release.h
+src/roxygen1.h
+src/roxygen2.h
+src/roxygen3.h
+src/safe.h
+src/strings.h
+src/sum.h
+src/sum_int.h
+src/test-as_advanced.h
+src/test-as_complexes.h
+src/test-as.h
+src/test-attribute_proxy.h
+src/test-complex.h
+src/test-cxx17.h
+src/test-cxx20.h
+src/test-cxx23.h
+src/test-data_frame.h
+src/test-doubles.h
+src/test-environment_advanced.h
+src/test-environment.h
+src/test-external_pointer.h
+src/test-function_advanced.h
+src/test-function.h
+src/test-helpers.h
+src/test-integers.h
+src/test-iterators-comprehensive.h
+src/test-list.h
+src/test-list_of.h
+src/test-logicals.h
+src/test-matrix_advanced.h
+src/test-matrix.h
+src/test-named_arg.h
+src/test-nas.h
+src/test-protect_advanced.h
+src/test-protect.h
+src/test-protect-nested.h
+src/test-raws.h
+src/test-r_bool_advanced.h
+src/test-r_complex.h
+src/test-r_string_advanced.h
+src/test-runner.cpp
+src/test-runner.h
+src/test-r_vector_advanced.h
+src/test-r_vector.h
+src/test-sexp_advanced.h
+src/test-sexp.h
+src/test-string.h
+src/test-strings.h
+src/test-translate_names.h
+src/truncate.h

extended-tests/cpp4rtest/DESCRIPTION

@@ -12,7 +12,7 @@ Authors@R:
 Description: Provides a test suite and benchmarking code for the 'cpp4r' package.
 License: Apache License (>= 2)
 Encoding: UTF-8
-LinkingTo: cpp4r, testthat
+LinkingTo: testthat
 Suggests:
     covr,
     testthat (>= 3.0.0),

extended-tests/cpp4rtest/R/cpp4r.R

@@ -14,6 +14,54 @@ data_frame_ <- function() {
 	.Call(`_cpp4rtest_data_frame_`)
 }
 
+cpp4r_env_get_int_ <- function(env, name) {
+	.Call(`_cpp4rtest_cpp4r_env_get_int_`, env, name)
+}
+
+cpp4r_env_get_str_ <- function(env, name) {
+	.Call(`_cpp4rtest_cpp4r_env_get_str_`, env, name)
+}
+
+cpp4r_env_set_ <- function(env, name, value) {
+	invisible(.Call(`_cpp4rtest_cpp4r_env_set_`, env, name, value))
+}
+
+cpp4r_env_exists_ <- function(env, name) {
+	.Call(`_cpp4rtest_cpp4r_env_exists_`, env, name)
+}
+
+cpp4r_global_get_ <- function(name) {
+	.Call(`_cpp4rtest_cpp4r_global_get_`, name)
+}
+
+cpp4r_named_doubles_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_named_doubles_`)
+}
+
+cpp4r_named_integers_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_named_integers_`)
+}
+
+cpp4r_named_strings_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_named_strings_`)
+}
+
+cpp4r_named_list_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_named_list_`)
+}
+
+cpp4r_get_by_name_ <- function(x, name) {
+	.Call(`_cpp4rtest_cpp4r_get_by_name_`, x, name)
+}
+
+cpp4r_contains_name_ <- function(x, name) {
+	.Call(`_cpp4rtest_cpp4r_contains_name_`, x, name)
+}
+
+cpp4r_find_name_pos_ <- function(x, name) {
+	.Call(`_cpp4rtest_cpp4r_find_name_pos_`, x, name)
+}
+
 my_stop_n1fmt <- function(mystring) {
 	invisible(.Call(`_cpp4rtest_my_stop_n1fmt`, mystring))
 }
@@ -103,6 +151,42 @@ cpp4r_insert_ <- function(num_sxp) {
 	.Call(`_cpp4rtest_cpp4r_insert_`, num_sxp)
 }
 
+cpp4r_list_of_doubles_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_list_of_doubles_`)
+}
+
+cpp4r_list_of_integers_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_list_of_integers_`)
+}
+
+cpp4r_list_of_strings_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_list_of_strings_`)
+}
+
+cpp4r_list_of_named_ <- function() {
+	.Call(`_cpp4rtest_cpp4r_list_of_named_`)
+}
+
+cpp4r_make_complex_ <- function(real, imag) {
+	.Call(`_cpp4rtest_cpp4r_make_complex_`, real, imag)
+}
+
+cpp4r_complex_real_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_complex_real_`, x)
+}
+
+cpp4r_complex_imag_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_complex_imag_`, x)
+}
+
+cpp4r_complex_modulus_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_complex_modulus_`, x)
+}
+
+cpp4r_complex_add_ <- function(x, y) {
+	.Call(`_cpp4rtest_cpp4r_complex_add_`, x, y)
+}
+
 #' @title List functions
 #' @rdname testing-list
 #' @keywords internal
@@ -459,6 +543,74 @@ nullable_extptr_2 <- function() {
 	.Call(`_cpp4rtest_nullable_extptr_2`)
 }
 
+cpp4r_add_int_vec_ <- function(x, value) {
+	.Call(`_cpp4rtest_cpp4r_add_int_vec_`, x, value)
+}
+
+cpp4r_as_integers_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_as_integers_`, x)
+}
+
+cpp4r_negate_logical_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_negate_logical_`, x)
+}
+
+cpp4r_logical_to_int_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_logical_to_int_`, x)
+}
+
+cpp4r_logical_to_dbl_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_logical_to_dbl_`, x)
+}
+
+cpp4r_iterator_sum_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_sum_`, x)
+}
+
+cpp4r_iterator_sum_int_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_sum_int_`, x)
+}
+
+cpp4r_iterator_find_ <- function(x, value) {
+	.Call(`_cpp4rtest_cpp4r_iterator_find_`, x, value)
+}
+
+cpp4r_iterator_count_ <- function(x, value) {
+	.Call(`_cpp4rtest_cpp4r_iterator_count_`, x, value)
+}
+
+cpp4r_iterator_min_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_min_`, x)
+}
+
+cpp4r_iterator_max_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_max_`, x)
+}
+
+cpp4r_iterator_double_values_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_double_values_`, x)
+}
+
+cpp4r_reverse_vector_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_reverse_vector_`, x)
+}
+
+cpp4r_iterator_at_ <- function(x, index) {
+	.Call(`_cpp4rtest_cpp4r_iterator_at_`, x, index)
+}
+
+cpp4r_iterator_distance_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_iterator_distance_`, x)
+}
+
+cpp4r_raw_copy_ <- function(x) {
+	.Call(`_cpp4rtest_cpp4r_raw_copy_`, x)
+}
+
+cpp4r_raw_xor_ <- function(x, mask) {
+	.Call(`_cpp4rtest_cpp4r_raw_xor_`, x, mask)
+}
+
 test_destruction_inner <- function() {
 	invisible(.Call(`_cpp4rtest_test_destruction_inner`))
 }

extended-tests/cpp4rtest/cpp4r.hpp

@@ -0,0 +1,24 @@
+#pragma once
+
+#include "cpp4r/R.hpp"
+#include "cpp4r/as.hpp"
+#include "cpp4r/attribute_proxy.hpp"
+#include "cpp4r/complexes.hpp"
+#include "cpp4r/data_frame.hpp"
+#include "cpp4r/doubles.hpp"
+#include "cpp4r/environment.hpp"
+#include "cpp4r/external_pointer.hpp"
+#include "cpp4r/function.hpp"
+#include "cpp4r/integers.hpp"
+#include "cpp4r/list.hpp"
+#include "cpp4r/list_of.hpp"
+#include "cpp4r/logicals.hpp"
+#include "cpp4r/matrix.hpp"
+#include "cpp4r/named_arg.hpp"
+#include "cpp4r/protect.hpp"
+#include "cpp4r/r_bool.hpp"
+#include "cpp4r/r_string.hpp"
+#include "cpp4r/r_vector.hpp"
+#include "cpp4r/raws.hpp"
+#include "cpp4r/sexp.hpp"
+#include "cpp4r/strings.hpp"

extended-tests/cpp4rtest/src/Makevars.in

@@ -3,13 +3,4 @@ PKG_CXXFLAGS = $(SHLIB_OPENMP_CXXFLAGS)
 PKG_LIBS = $(SHLIB_OPENMP_CXXFLAGS) $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)
 
 # Debugging
-
-# uncomment one of the following lines to enable debugging
-# PKG_CPPFLAGS = -UDEBUG -g
-# PKG_CPPFLAGS = -UDEBUG -g -I vendor/
-
-# uncomment to disable compiler optimizations
-# PKG_CXXFLAGS = -Wall -O0 -pedantic
-
-# for local test coverage
-# PKG_CXXFLAGS = -Wall -O2 -pedantic
+PKG_CPPFLAGS = -UDEBUG -g -I vendor/ -Wall -O2 -pedantic