Unit test for Rcpp::wrap(std::string_view)

Author: evalon32

inst/tinytest/cpp/wrap.cpp

@@ -304,3 +304,10 @@ SEXP vector_Foo(){
     vec[1] = Foo( 3 ) ;
     return wrap(vec) ;
 }
+
+// [[Rcpp::plugins(cpp17)]]
+// [[Rcpp::export]]
+SEXP test_wrap_string_view(){
+    std::string_view sv = "test string value";
+    return wrap(sv);
+}

inst/tinytest/test_wrap.R

@@ -132,3 +132,6 @@ expect_equal(sapply( vector_Foo(), function(.) .$get() ), c(2, 3),
 
 #    test.wrap.custom.class <- function() {
 expect_equal(test_wrap_custom_class(), 42)
+
+#    test.wrap.custom.string_view <- function() {
+expect_equal(test_wrap_string_view(), "test string value")