Add unit tests.

Author: Florian Plaza Oñate

inst/unitTests/cpp/Matrix.cpp

@@ -238,3 +238,7 @@ NumericVector runit_const_Matrix_column( const NumericMatrix& m ){
    return col1 ;
 }
 
+// [[Rcpp::export]]
+int access_with_bounds_checking(const IntegerMatrix m, int i, int j) {
+    return m.at(i, j);
+}

inst/unitTests/cpp/Vector.cpp

@@ -777,3 +777,7 @@ int noprotect_vector( Vector<REALSXP, NoProtectStorage> x){
 int noprotect_matrix( Matrix<REALSXP, NoProtectStorage> x){
   return x.nrow() ;
 }
+
+int access_with_bounds_checking(const IntegerVector x, int index) {
+    return x.at(index);
+}

inst/unitTests/runit.Matrix.R

@@ -171,4 +171,16 @@ if (.runThisTest) {
       checkEquals( m[,1], m[,2] )
     }
 
+    test.IntegerMatrix.accessor.with.bounds.checking <- function() {
+        m <- matrix(seq(1L, 12, by=1L), nrow=4L, ncol=3L)
+        checkEquals(access_with_bounds_checking(m, 0, 0), 1)
+        checkEquals(access_with_bounds_checking(m, 1, 2), 10)
+        checkEquals(access_with_bounds_checking(m, 3, 2), 12)
+        checkException(access_with_bounds_checking(m, 4, 2) , msg = "index out of bounds not detected" )
+        checkException(access_with_bounds_checking(m, 3, 3) , msg = "index out of bounds not detected" )
+        checkException(access_with_bounds_checking(m, 3, -1) , msg = "index out of bounds not detected" )
+        checkException(access_with_bounds_checking(m, -1, 2) , msg = "index out of bounds not detected" )
+        checkException(access_with_bounds_checking(m, -1, -1) , msg = "index out of bounds not detected" )
+    }
+
 }

inst/unitTests/runit.Vector.R

@@ -683,6 +683,15 @@ if (.runThisTest) {
         x <- matrix(rnorm(10), nrow=2)
         checkIdentical( noprotect_matrix(x), 2L )
     }
+
+    test.IntegerVector.accessor.with.bounds.checking <- function() {
+        x <- seq(1L, 5L, by=1L)
+        checkEquals(access_with_bounds_checking(x, 3), 4)
+        checkException(access_with_bounds_checking(x, 5) , msg = "index out of bounds not detected" )
+        checkException(access_with_bounds_checking(x, -1) , msg = "index out of bounds not detected" )
+    }
+}
+
 
 }