additional test for Matrix<.,NoProtectStorage>

Author: romainfrancois

inst/unitTests/cpp/Vector.cpp

@@ -772,3 +772,7 @@ int noprotect_vector( Vector<REALSXP, NoProtectStorage> x){
   return x.size() ;
 }
 
+// [[Rcpp::export]]
+int noprotect_matrix( Matrix<REALSXP, NoProtectStorage> x){
+  return x.nrow() ;
+}

inst/unitTests/runit.Vector.R

@@ -679,5 +679,10 @@ if (.runThisTest) {
         checkIdentical( noprotect_vector(x), 10L )
     }
 
+    test.noprotect_matrix <- function(){
+        x <- matrix(rnorm(10), nrow=2)
+        checkIdentical( noprotect_matrix(x), 2L )
+    }
+    
 }