➕ test for lists accross storage policies

Author: romainfrancois

inst/unitTests/cpp/Vector.cpp

@@ -855,3 +855,16 @@ int CharacterVectorNoProtect(Vector<STRSXP, NoProtectStorage> s){
     return s.size();
 }
 
+// [[Rcpp::export]]
+CharacterVector CharacterVectorNoProtect_crosspolicy(Vector<STRSXP, NoProtectStorage> s){
+    CharacterVector s2(1) ;
+    s2[0] = s[0];
+    return s;
+}
+
+// [[Rcpp::export]]
+List ListNoProtect_crosspolicy(Vector<VECSXP, NoProtectStorage> data){
+    List data2(1) ;
+    data2[0] = data[0];
+    return data2;
+}

inst/unitTests/runit.Vector.R

@@ -761,5 +761,15 @@ if (.runThisTest) {
         checkEquals(CharacterVectorNoProtect(s), 1L)
         checkEquals(s, "")
     }
-}
 
+    test.CharacterVectorNoProtect_crosspolicy <- function(){
+        s <- "foo"
+        checkEquals(CharacterVectorNoProtect_crosspolicy(s), s)
+    }
+
+    test.ListNoProtect_crosspolicy <- function(){
+        data <- list(1:10)
+        data2 <- ListNoProtect_crosspolicy(data)
+        checkEquals(data, data2)
+    }
+}